Changeset 3016 for trunk/Nebulous-Server/t/23_client_stat.t
- Timestamp:
- Jan 14, 2005, 6:02:12 PM (22 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/t/23_client_stat.t (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/23_client_stat.t
r2893 r3016 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 23_client_stat.t,v 1. 1 2005-01-04 22:02:43jhoblitt Exp $5 # $Id: 23_client_stat.t,v 1.2 2005-01-15 04:02:12 jhoblitt Exp $ 6 6 7 7 use strict; … … 10 10 use Apache::Test qw( -withtestmore ); 11 11 12 plan tests => 1 2;12 plan tests => 13; 13 13 14 14 use lib qw( ./t ./lib ); … … 30 30 my $info = $idata->stat( "foo" ); 31 31 32 is( scalar @$info, 7, "number of columns" );32 is( scalar @$info, 8, "number of columns" ); 33 33 } 34 34 … … 43 43 my $info = $idata->stat( "foo" ); 44 44 45 is( scalar @$info, 7, "number of columns" );45 is( scalar @$info, 8, "number of columns" ); 46 46 is( @$info[0], 1, "so_id" ); 47 47 is( @$info[1], "foo", "ext_id" ); … … 51 51 is( @$info[5], undef, "write lock" ); 52 52 like( @$info[6], qr/....-..-.. ..:..:../, "epoch" ); 53 like( @$info[6], qr/....-..-.. ..:..:../, "mtime" ); 53 54 } 54 55
Note:
See TracChangeset
for help on using the changeset viewer.
