Index: trunk/Nebulous-Server/t/14_server_xattr.t
===================================================================
--- trunk/Nebulous-Server/t/14_server_xattr.t	(revision 17072)
+++ trunk/Nebulous-Server/t/14_server_xattr.t	(revision 17620)
@@ -3,5 +3,5 @@
 # Copryight (C) 2007  Joshua Hoblitt
 #
-# $Id: 14_server_xattr.t,v 1.4 2008-03-20 21:10:14 jhoblitt Exp $
+# $Id: 14_server_xattr.t,v 1.5 2008-05-10 01:11:58 jhoblitt Exp $
 
 use strict;
@@ -30,7 +30,7 @@
     ok($neb->setxattr_object('foo', 'bar', 'baz', 'create'), 'set object xattr');
     {
-        my @xattrs = $neb->listxattr_object('foo');
+        my $xattrs = $neb->listxattr_object('foo');
         is(scalar @xattrs, 1, 'number of xattrs');
-        is($xattrs[0], 'bar', 'xattr name');
+        is(@$xattrs[0], 'bar', 'xattr name');
     }
 
@@ -40,6 +40,6 @@
     ok($neb->removexattr_object('foo', 'bar'), "remove object xattr");
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 0, 'number of xattrs');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 0, 'number of xattrs');
     }
 }
@@ -56,8 +56,8 @@
     
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 2, 'number of xattrs');
-        is($xattrs[0], 'bar', 'xattr name');
-        is($xattrs[1], 'bonk', 'xattr name');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 2, 'number of xattrs');
+        is(@$xattrs[0], 'bar', 'xattr name');
+        is(@$xattrs[1], 'bonk', 'xattr name');
     }
 
@@ -70,6 +70,6 @@
     ok($neb->removexattr_object('foo', 'bonk'), "remove object xattr");
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 0, 'number of xattrs');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 0, 'number of xattrs');
     }
 }
@@ -86,7 +86,7 @@
     
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 1, 'number of xattrs');
-        is($xattrs[0], 'bar', 'xattr name');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 1, 'number of xattrs');
+        is(@$xattrs[0], 'bar', 'xattr name');
     }
 
@@ -96,6 +96,6 @@
     ok($neb->removexattr_object('foo', 'bar'), "remove object xattr");
     {
-        my @xattrs = $neb->listxattr_object('foo');
-        is(scalar @xattrs, 0, 'number of xattrs');
+        my $xattrs = $neb->listxattr_object('foo');
+        is(scalar @$xattrs, 0, 'number of xattrs');
     }
 }