Changeset 24639 for trunk/Nebulous-Server/t/10_server_stat_object.t

Timestamp:

Jul 1, 2009, 6:40:27 PM (17 years ago)

Author:

jhoblitt

Message:

change Nebulous::Server->stat_object() to return both the total number of instance and just those that are available

File:

• trunk/Nebulous-Server/t/10_server_stat_object.t (modified) (4 diffs)

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

@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-use Test::More tests => 12;
+use Test::More tests => 13;
 
 use lib qw( ./t ./lib );
@@ -27 +27 @@
     my $info = $neb->stat_object("foo");
 
-    is(scalar @$info, 7, "number of columns");
+    is(scalar @$info, 8, "number of columns");
 }
 
@@ -37 +37 @@
     my $info = $neb->stat_object("foo");
 
-    is(scalar @$info, 7,                       "number of columns");
+    is(scalar @$info, 8,                       "number of columns");
     is(@$info[0], 1,                           "so_id");
     is(@$info[1], "foo",                       "ext_id");
@@ -45 +45 @@
     like(@$info[5], qr/....-..-.. ..:..:../,   "mtime");
     is(@$info[6], 1,                           "instances");
+    is(@$info[7], 1,                           "available instances");
 }