Changeset 3016 for trunk/Nebulous-Server/t

Timestamp:

Jan 14, 2005, 6:02:12 PM (22 years ago)

Author:

jhoblitt

Message:

update database scheme for mysql 4.1 syntax

Location:

trunk/Nebulous-Server/t

Files:

• 09_server_stat_object.t (modified) (4 diffs)
• 23_client_stat.t (modified) (5 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.3 2005-01-03 23:55:29 jhoblitt Exp $
+# $Id: 09_server_stat_object.t,v 1.4 2005-01-15 04:02:12 jhoblitt Exp $
 
 use strict;
 use warnings FATAL => qw( all );
 
-use Test::More tests => 12;
+use Test::More tests => 13;
 
 use lib qw( ./t ./lib );
@@ -31 +31 @@
     my $info = $idata->stat_object( "foo" );
 
-    is( scalar @$info, 7, "number of columns" );
+    is( scalar @$info, 8, "number of columns" );
 }
 
@@ -41 +41 @@
     my $info = $idata->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" );
@@ -49 +49 @@
     is( @$info[5], undef,                       "write lock" );
     like( @$info[6], qr/....-..-.. ..:..:../,   "epoch" );
+    like( @$info[6], qr/....-..-.. ..:..:../,   "mtime" );
 }
 

trunk/Nebulous-Server/t/23_client_stat.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 23_client_stat.t,v 1.1 2005-01-04 22:02:43 jhoblitt Exp $
+# $Id: 23_client_stat.t,v 1.2 2005-01-15 04:02:12 jhoblitt Exp $
 
 use strict;
@@ -10 +10 @@
 use Apache::Test qw( -withtestmore );
 
-plan tests => 12;
+plan tests => 13;
 
 use lib qw( ./t ./lib );
@@ -30 +30 @@
     my $info = $idata->stat( "foo" );
 
-    is( scalar @$info, 7, "number of columns" );
+    is( scalar @$info, 8, "number of columns" );
 }
 
@@ -43 +43 @@
     my $info = $idata->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" );
@@ -51 +51 @@
     is( @$info[5], undef,                       "write lock" );
     like( @$info[6], qr/....-..-.. ..:..:../,   "epoch" );
+    like( @$info[6], qr/....-..-.. ..:..:../,   "mtime" );
 }