Changeset 13203 for trunk/Nebulous/t/63_client_stat.t

Timestamp:

May 3, 2007, 12:10:14 PM (19 years ago)

Author:

jhoblitt

Message:

valid that $key arguments are valid

File:

• trunk/Nebulous/t/63_client_stat.t (modified) (5 diffs)

trunk/Nebulous/t/63_client_stat.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 63_client_stat.t,v 1.2 2007-05-01 02:52:04 jhoblitt Exp $
+# $Id: 63_client_stat.t,v 1.3 2007-05-03 22:10:14 jhoblitt Exp $
 
 use strict;
@@ -10 +10 @@
 use Apache::Test qw( -withtestmore );
 
-plan tests => 11;
+plan tests => 12;
 
 use lib qw( ./t ./lib );
@@ -30 +30 @@
     my $info = $neb->stat( "foo" );
 
-    is( scalar @$info, 6, "number of columns" );
+    is( scalar @$info, 7, "number of columns" );
 }
 
@@ -43 +43 @@
     my $info = $neb->stat( "foo" );
 
-    is( scalar @$info, 6,                       "number of columns" );
+    is( scalar @$info, 7,                       "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" );
 }