Index: trunk/Nebulous-Server/t/09_server_stat_object.t
===================================================================
--- trunk/Nebulous-Server/t/09_server_stat_object.t	(revision 12644)
+++ trunk/Nebulous-Server/t/09_server_stat_object.t	(revision 12646)
@@ -3,5 +3,5 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 09_server_stat_object.t,v 1.8 2006-12-08 03:29:19 jhoblitt Exp $
+# $Id: 09_server_stat_object.t,v 1.9 2007-03-28 22:01:37 jhoblitt Exp $
 
 use strict;
@@ -25,9 +25,9 @@
 
 {
-    my $uri = $neb->create_object( "foo" );
+    my $uri = $neb->create_object("foo");
 
-    my $info = $neb->stat_object( "foo" );
+    my $info = $neb->stat_object("foo");
 
-    is( scalar @$info, 8, "number of columns" );
+    is(scalar @$info, 8, "number of columns");
 }
 
@@ -35,17 +35,17 @@
 
 {
-    my $uri = $neb->create_object( "foo", 0, "node01", "foobar" );
+    my $uri = $neb->create_object("foo", 0, "node01", "foobar");
 
-    my $info = $neb->stat_object( "foo" );
+    my $info = $neb->stat_object("foo");
 
-    is( scalar @$info, 8,                       "number of columns" );
-    is( @$info[0], 1,                           "so_id" );
-    is( @$info[1], "foo",                       "ext_id" );
-    is( @$info[2], 0,                           "class_id" );
-    is( @$info[3], "foobar",                    "comment" );
-    is( @$info[4], 0,                           "read lock" );
-    is( @$info[5], undef,                       "write lock" );
-    like( @$info[6], qr/....-..-.. ..:..:../,   "epoch" );
-    like( @$info[6], qr/....-..-.. ..:..:../,   "mtime" );
+    is(scalar @$info, 8,                       "number of columns");
+    is(@$info[0], 1,                           "so_id");
+    is(@$info[1], "foo",                       "ext_id");
+    is(@$info[2], 0,                           "class_id");
+    is(@$info[3], "foobar",                    "comment");
+    is(@$info[4], 0,                           "read lock");
+    is(@$info[5], undef,                       "write lock");
+    like(@$info[6], qr/....-..-.. ..:..:../,   "epoch");
+    like(@$info[6], qr/....-..-.. ..:..:../,   "mtime");
 }
 
@@ -53,7 +53,7 @@
 
 eval {
-    $neb->stat_object( "foo" );
+    $neb->stat_object("foo");
 };
-like( $@, qr/no storage object found/, "object does not exist" );
+like($@, qr/no storage object found/, "object does not exist");
 
 Test::Nebulous->setup;
@@ -62,12 +62,12 @@
     $neb->stat_object();
 };
-like( $@, qr/1 was expected/, "no params" );
+like($@, qr/1 was expected/, "no params");
 
 Test::Nebulous->setup;
 
 eval {
-    $neb->stat_object( "foo", 2 );
+    $neb->stat_object("foo", 2);
 };
-like( $@, qr/1 was expected/, "too many params" );
+like($@, qr/1 was expected/, "too many params");
 
 Test::Nebulous->cleanup;
Index: trunk/Nebulous-Server/t/10_server_is_valid_volume_name.t
===================================================================
--- trunk/Nebulous-Server/t/10_server_is_valid_volume_name.t	(revision 12644)
+++ trunk/Nebulous-Server/t/10_server_is_valid_volume_name.t	(revision 12646)
@@ -3,5 +3,5 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 10_server_is_valid_volume_name.t,v 1.2 2006-12-08 03:29:19 jhoblitt Exp $
+# $Id: 10_server_is_valid_volume_name.t,v 1.3 2007-03-28 22:02:11 jhoblitt Exp $
 
 use strict;
@@ -24,13 +24,13 @@
 Test::Nebulous->setup;
 
-ok( $neb->_is_valid_volume_name( 'node01' ), "valid volume name" );
+ok($neb->_is_valid_volume_name('node01'), "valid volume name");
 
 Test::Nebulous->setup;
 
-ok( $neb->_is_valid_volume_name( 'node02' ), "valid volume name" );
+ok($neb->_is_valid_volume_name('node02'), "valid volume name");
 
 Test::Nebulous->setup;
 
-is( $neb->_is_valid_volume_name( 'node99' ), undef, "invalid volume name" );
+is($neb->_is_valid_volume_name('node99'), undef, "invalid volume name");
 
 Test::Nebulous->cleanup;