Changeset 5497
- Timestamp:
- Nov 10, 2005, 11:30:32 AM (21 years ago)
- Location:
- trunk
- Files:
-
- 5 edited
-
Nebulous-Server/t/03_server_create_object.t (modified) (3 diffs)
-
Nebulous-Server/t/23_client_stat.t (modified) (3 diffs)
-
Nebulous/t/03_server_create_object.t (modified) (3 diffs)
-
Nebulous/t/23_client_stat.t (modified) (3 diffs)
-
Nebulous/t/Test/Nebulous.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/03_server_create_object.t
r5491 r5497 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 03_server_create_object.t,v 1. 7 2005-11-09 01:33:09jhoblitt Exp $5 # $Id: 03_server_create_object.t,v 1.8 2005-11-10 21:30:32 jhoblitt Exp $ 6 6 7 7 use strict; … … 85 85 $neb->create_object( "foo", 99 ); 86 86 }; 87 like( $@, qr/ Invalid class/, "class doesn't exist" );87 like( $@, qr/did not pass the \'is valid class id\'/, "class doesn't exist" ); 88 88 89 89 Test::Nebulous->setup; … … 97 97 98 98 eval { 99 $neb->create_object( 1, 2, 3, 4, 5);99 $neb->create_object( 1, 1, 1, 1, 1 ); 100 100 }; 101 101 like( $@, qr/2 - 4 were expected/, "too many params" ); -
trunk/Nebulous-Server/t/23_client_stat.t
r4440 r5497 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 23_client_stat.t,v 1. 3 2005-06-30 02:35:06jhoblitt Exp $5 # $Id: 23_client_stat.t,v 1.4 2005-11-10 21:30:32 jhoblitt Exp $ 6 6 7 7 use strict; … … 39 39 proxy => "http://$hostport/nebulous", 40 40 ); 41 $neb->create( "foo", 9, "node01", "foobar" );41 $neb->create( "foo", 0, "node01", "foobar" ); 42 42 43 43 my $info = $neb->stat( "foo" ); … … 46 46 is( @$info[0], 1, "so_id" ); 47 47 is( @$info[1], "foo", "ext_id" ); 48 is( @$info[2], 9, "class_id" );48 is( @$info[2], 0, "class_id" ); 49 49 is( @$info[3], "foobar", "comment" ); 50 50 is( @$info[4], 0, "read lock" ); -
trunk/Nebulous/t/03_server_create_object.t
r5491 r5497 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 03_server_create_object.t,v 1. 7 2005-11-09 01:33:09jhoblitt Exp $5 # $Id: 03_server_create_object.t,v 1.8 2005-11-10 21:30:32 jhoblitt Exp $ 6 6 7 7 use strict; … … 85 85 $neb->create_object( "foo", 99 ); 86 86 }; 87 like( $@, qr/ Invalid class/, "class doesn't exist" );87 like( $@, qr/did not pass the \'is valid class id\'/, "class doesn't exist" ); 88 88 89 89 Test::Nebulous->setup; … … 97 97 98 98 eval { 99 $neb->create_object( 1, 2, 3, 4, 5);99 $neb->create_object( 1, 1, 1, 1, 1 ); 100 100 }; 101 101 like( $@, qr/2 - 4 were expected/, "too many params" ); -
trunk/Nebulous/t/23_client_stat.t
r4440 r5497 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 23_client_stat.t,v 1. 3 2005-06-30 02:35:06jhoblitt Exp $5 # $Id: 23_client_stat.t,v 1.4 2005-11-10 21:30:32 jhoblitt Exp $ 6 6 7 7 use strict; … … 39 39 proxy => "http://$hostport/nebulous", 40 40 ); 41 $neb->create( "foo", 9, "node01", "foobar" );41 $neb->create( "foo", 0, "node01", "foobar" ); 42 42 43 43 my $info = $neb->stat( "foo" ); … … 46 46 is( @$info[0], 1, "so_id" ); 47 47 is( @$info[1], "foo", "ext_id" ); 48 is( @$info[2], 9, "class_id" );48 is( @$info[2], 0, "class_id" ); 49 49 is( @$info[3], "foobar", "comment" ); 50 50 is( @$info[4], 0, "read lock" ); -
trunk/Nebulous/t/Test/Nebulous.pm
r5490 r5497 1 1 # Copyright (C) 2004 Joshua Hoblitt 2 2 # 3 # $Id: Nebulous.pm,v 1. 7 2005-11-09 01:31:07jhoblitt Exp $3 # $Id: Nebulous.pm,v 1.8 2005-11-10 21:30:32 jhoblitt Exp $ 4 4 5 5 package Test::Nebulous; … … 40 40 $dbh->do( qq{ INSERT INTO volume VALUES (2,'node02',?) }, undef, 'file:' . $dir2 ); 41 41 42 $dbh->do( qq{ INSERT INTO class VALUES ( 1, 0, "regular data") } );43 $dbh->do( qq{ INSERT INTO class VALUES ( 2, 1, "special data") } );42 $dbh->do( qq{ INSERT INTO class VALUES (0, 0, "regular data") } ); 43 $dbh->do( qq{ INSERT INTO class VALUES (1, 1, "special data") } ); 44 44 } 45 45
Note:
See TracChangeset
for help on using the changeset viewer.
