Changeset 13173 for trunk/Nebulous-Server/t/07_server_find_instances.t
- Timestamp:
- May 2, 2007, 3:44:24 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/07_server_find_instances.t
r12643 r13173 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 07_server_find_instances.t,v 1. 7 2007-03-28 21:48:24 jhoblitt Exp $5 # $Id: 07_server_find_instances.t,v 1.8 2007-05-03 01:44:24 jhoblitt Exp $ 6 6 7 7 use strict; 8 8 use warnings FATAL => qw( all ); 9 9 10 use Test::More tests => 1 3;10 use Test::More tests => 15; 11 11 12 12 use lib qw( ./t ./lib ); … … 53 53 { 54 54 # key, volume 55 my $uri = $neb->create_object( "foo");55 my $uri = $neb->create_object('foo', 'node01'); 56 56 57 my $locations = $neb->find_instances( "foo", "node01");57 my $locations = $neb->find_instances('foo', 'node01'); 58 58 59 59 uri_scheme_ok($locations->[0], 'file'); … … 75 75 } 76 76 77 # object exists but instance is on a different volume 78 Test::Nebulous->setup; 79 80 eval { 81 # key, volume 82 my $uri = $neb->create_object('foo', 'node01'); 83 84 my $locations = $neb->find_instances('foo', 'node02'); 85 }; 86 like($@, qr/no instances on storage volume/, 'instances on a different volume'); 87 77 88 78 89 Test::Nebulous->setup; 79 90 80 91 eval { 81 $neb->find_instances( "foo");92 $neb->find_instances('foo'); 82 93 }; 83 like($@, qr/no instances found/, "storage object does not exist"); 94 like($@, qr/is valid object key/, "storage object does not exist"); 95 96 Test::Nebulous->setup; 97 98 eval { 99 $neb->create_object('foo'); 100 $neb->find_instances('foo', 'bar'); 101 }; 102 like($@, qr/is valid volume name/, "storage volume does not exist"); 84 103 85 104 Test::Nebulous->setup; … … 93 112 94 113 eval { 95 $neb->find_instances("foo", 'read', 3); 114 $neb->create_object('foo'); 115 $neb->find_instances('foo', 'node01', 3); 96 116 }; 97 117 like($@, qr/1 - 2 were expected/, "too many params");
Note:
See TracChangeset
for help on using the changeset viewer.
