Changeset 17717 for trunk/Nebulous-Server
- Timestamp:
- May 16, 2008, 10:29:19 AM (18 years ago)
- Location:
- trunk/Nebulous-Server/t
- Files:
-
- 3 edited
-
09_server_stat_object.t (modified) (2 diffs)
-
12_server_find_objects.t (modified) (2 diffs)
-
13_server_rename_object.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/09_server_stat_object.t
r17650 r17717 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 09_server_stat_object.t,v 1.1 4 2008-05-13 03:55:08jhoblitt Exp $5 # $Id: 09_server_stat_object.t,v 1.15 2008-05-16 20:29:19 jhoblitt Exp $ 6 6 7 7 use strict; … … 49 49 Test::Nebulous->setup; 50 50 51 {51 eval { 52 52 my $stat = $neb->stat_object("foo"); 53 is($stat, undef, "object does not exist");54 } 53 }; 54 like($@, qr/is valid object key/, "no params"); 55 55 56 56 Test::Nebulous->setup; -
trunk/Nebulous-Server/t/12_server_find_objects.t
r17072 r17717 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 12_server_find_objects.t,v 1. 3 2008-03-20 21:10:14jhoblitt Exp $5 # $Id: 12_server_find_objects.t,v 1.4 2008-05-16 20:29:19 jhoblitt Exp $ 6 6 7 7 use strict; … … 24 24 25 25 # search for a regex of '' should match nothing 26 {26 eval { 27 27 # key 28 28 my $uri = $neb->create_object("foo"); 29 29 30 30 my $keys = $neb->find_objects(); 31 32 is(scalar @$keys, 0, 'number of keys found'); 33 } 31 }; 32 like($@, qr/no keys found/, "no keys found"); 34 33 35 34 Test::Nebulous->setup; -
trunk/Nebulous-Server/t/13_server_rename_object.t
r17072 r17717 3 3 # Copryight (C) 2007 Joshua Hoblitt 4 4 # 5 # $Id: 13_server_rename_object.t,v 1. 4 2008-03-20 21:10:14jhoblitt Exp $5 # $Id: 13_server_rename_object.t,v 1.5 2008-05-16 20:29:19 jhoblitt Exp $ 6 6 7 7 use strict; … … 28 28 $neb->rename_object("foo", "bar"); 29 29 30 my $keys = $neb->find_objects('^foo$'); 31 is(scalar @$keys, 0, 'number of keys found'); 32 $keys = $neb->find_objects('^bar$'); 30 eval { 31 $neb->find_objects('^foo$'); 32 }; 33 like($@, qr/no keys found/, "old key name"); 34 35 my $keys = $neb->find_objects('^bar$'); 33 36 is(scalar @$keys, 1, 'number of keys found'); 34 37 }
Note:
See TracChangeset
for help on using the changeset viewer.
