Changeset 13092 for trunk/Nebulous-Server/t/09_server_stat_object.t

Timestamp:

Apr 30, 2007, 4:52:04 PM (19 years ago)

Author:

jhoblitt

Message:

remove $class_id & $comment params from Nebulous::Server->create() and Nebulous::Client->create*() and all supporting functions and tests

File:

• trunk/Nebulous-Server/t/09_server_stat_object.t (modified) (3 diffs)

trunk/Nebulous-Server/t/09_server_stat_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 09_server_stat_object.t,v 1.9 2007-03-28 22:01:37 jhoblitt Exp $
+# $Id: 09_server_stat_object.t,v 1.10 2007-05-01 02:52:04 jhoblitt Exp $
 
 use strict;
 use warnings FATAL => qw( all );
 
-use Test::More tests => 13;
+use Test::More tests => 11;
 
 use lib qw( ./t ./lib );
@@ -29 +29 @@
     my $info = $neb->stat_object("foo");
 
-    is(scalar @$info, 8, "number of columns");
+    is(scalar @$info, 6, "number of columns");
 }
 
@@ -35 +35 @@
 
 {
-    my $uri = $neb->create_object("foo", 0, "node01", "foobar");
+    my $uri = $neb->create_object("foo", "node01");
 
     my $info = $neb->stat_object("foo");
 
-    is(scalar @$info, 8,                       "number of columns");
+    is(scalar @$info, 6,                       "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(@$info[2], 0,                           "read lock");
+    is(@$info[3], undef,                       "write lock");
+    like(@$info[4], qr/....-..-.. ..:..:../,   "epoch");
+    like(@$info[5], qr/....-..-.. ..:..:../,   "mtime");
 }