Changeset 24644

Timestamp:

Jul 2, 2009, 2:18:56 PM (17 years ago)

Author:

jhoblitt

Message:

add ->stat() total instances field

Location:

trunk/Nebulous

Files:

• bin/neb-stat (modified) (1 diff)
• t/63_client_stat.t (modified) (4 diffs)

trunk/Nebulous/bin/neb-stat

@@ -46 +46 @@
 no warnings qw(uninitialized);
 print
-    "object id:     ", @$stat[0], "\n",
-    "key:           ", @$stat[1], "\n",
-    "read lock:     ", @$stat[2], "\n",
-    "write lock:    ", @$stat[3], "\n",
-    "epoch:         ", @$stat[4], "\n",
-    "mtime:         ", @$stat[5], "\n",
-    "n instances:   ", @$stat[6], "\n",
+    "object id:             ", @$stat[0], "\n",
+    "key:                   ", @$stat[1], "\n",
+    "read lock:             ", @$stat[2], "\n",
+    "write lock:            ", @$stat[3], "\n",
+    "epoch:                 ", @$stat[4], "\n",
+    "mtime:                 ", @$stat[5], "\n",
+    "available instances:   ", @$stat[6], "\n",
+    "total instances:       ", @$stat[7], "\n",
     "instance location:\n", " " x 4,
     join("\n" . " " x 4, @$instances), "\n";

trunk/Nebulous/t/63_client_stat.t

@@ -10 +10 @@
 use Apache::Test qw( -withtestmore );
 
-plan tests => 12;
+plan tests => 13;
 
 use lib qw( ./t ./lib );
@@ -30 +30 @@
     my $info = $neb->stat( "foo" );
 
-    is( scalar @$info, 7, "number of columns" );
+    is( scalar @$info, 8, "number of columns" );
 }
 
@@ -43 +43 @@
     my $info = $neb->stat( "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" );
@@ -50 +50 @@
     like( @$info[4], qr/....-..-.. ..:..:../,   "epoch" );
     like( @$info[5], qr/....-..-.. ..:..:../,   "mtime" );
-    is( @$info[6], 1,                           "instances" );
+    is( @$info[6], 1,                           "available instances" );
+    is( @$info[7], 1,                           "total instances" );
 }