Changeset 4440 for trunk/Nebulous-Server/t/16_client_find_instances.t
- Timestamp:
- Jun 29, 2005, 4:35:06 PM (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/16_client_find_instances.t
r2872 r4440 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 16_client_find_instances.t,v 1. 5 2005-01-03 23:55:29jhoblitt Exp $5 # $Id: 16_client_find_instances.t,v 1.6 2005-06-30 02:35:06 jhoblitt Exp $ 6 6 7 7 use strict; … … 14 14 use lib qw( ./t ./lib ); 15 15 16 use PS::IPP::IData::Client;17 use PS::IPP::IData::Util qw( :standard );18 use Test:: IData;16 use Nebulous::Client; 17 use Nebulous::Util qw( :standard ); 18 use Test::Nebulous; 19 19 20 20 my $hostport = Apache::Test->config->{ 'hostport' }; 21 21 22 Test:: IData->setup;22 Test::Nebulous->setup; 23 23 24 24 { 25 25 # key 26 my $ idata = PS::IPP::IData::Client->new(27 proxy => "http://$hostport/ idata",26 my $neb = Nebulous::Client->new( 27 proxy => "http://$hostport/nebulous", 28 28 ); 29 $ idata->create( "foo" );29 $neb->create( "foo" ); 30 30 31 my $locations = $ idata->find_instances( "foo" );31 my $locations = $neb->find_instances( "foo" ); 32 32 33 33 is( scalar @$locations, 1, "found 1" ); … … 36 36 } 37 37 38 Test:: IData->setup;38 Test::Nebulous->setup; 39 39 40 40 { 41 41 # key 42 my $ idata = PS::IPP::IData::Client->new(43 proxy => "http://$hostport/ idata",42 my $neb = Nebulous::Client->new( 43 proxy => "http://$hostport/nebulous", 44 44 ); 45 $ idata->create( "foo" );46 $ idata->replicate( "foo" );45 $neb->create( "foo" ); 46 $neb->replicate( "foo" ); 47 47 48 my $locations = $ idata->find_instances( "foo" );48 my $locations = $neb->find_instances( "foo" ); 49 49 50 50 is( scalar @$locations, 2, "found 2" ); … … 55 55 } 56 56 57 Test:: IData->setup;57 Test::Nebulous->setup; 58 58 59 59 { 60 60 # key, volume 61 my $ idata = PS::IPP::IData::Client->new(62 proxy => "http://$hostport/ idata",61 my $neb = Nebulous::Client->new( 62 proxy => "http://$hostport/nebulous", 63 63 ); 64 $ idata->create( "foo" );64 $neb->create( "foo" ); 65 65 66 my $locations = $ idata->find_instances( "foo", "node01" );66 my $locations = $neb->find_instances( "foo", "node01" ); 67 67 68 68 is( scalar @$locations, 1, "found 1" ); … … 71 71 } 72 72 73 Test:: IData->setup;73 Test::Nebulous->setup; 74 74 75 75 { 76 76 # key 77 my $ idata = PS::IPP::IData::Client->new(78 proxy => "http://$hostport/ idata",77 my $neb = Nebulous::Client->new( 78 proxy => "http://$hostport/nebulous", 79 79 ); 80 $ idata->create( "foo" );81 $ idata->replicate( "foo" );80 $neb->create( "foo" ); 81 $neb->replicate( "foo" ); 82 82 83 my $locations = $ idata->find_instances( "foo", "node01" );83 my $locations = $neb->find_instances( "foo", "node01" ); 84 84 85 85 is( scalar @$locations, 2, "found 2" ); … … 90 90 } 91 91 92 Test:: IData->setup;92 Test::Nebulous->setup; 93 93 94 94 { 95 my $ idata = PS::IPP::IData::Client->new(96 proxy => "http://$hostport/ idata",95 my $neb = Nebulous::Client->new( 96 proxy => "http://$hostport/nebulous", 97 97 ); 98 98 99 is( $ idata->find_instances( "foo" ), undef, "storage object does not exist" );99 is( $neb->find_instances( "foo" ), undef, "storage object does not exist" ); 100 100 } 101 101 102 Test:: IData->setup;102 Test::Nebulous->setup; 103 103 104 104 eval { 105 my $ idata = PS::IPP::IData::Client->new(106 proxy => "http://$hostport/ idata",105 my $neb = Nebulous::Client->new( 106 proxy => "http://$hostport/nebulous", 107 107 ); 108 108 109 $ idata->find_instances();109 $neb->find_instances(); 110 110 }; 111 111 like( $@, qr/1 - 2 were expected/, "no params" ); 112 112 113 Test:: IData->setup;113 Test::Nebulous->setup; 114 114 115 115 eval { 116 my $ idata = PS::IPP::IData::Client->new(117 proxy => "http://$hostport/ idata",116 my $neb = Nebulous::Client->new( 117 proxy => "http://$hostport/nebulous", 118 118 ); 119 119 120 $ idata->find_instances( "foo", 'read', 3 );120 $neb->find_instances( "foo", 'read', 3 ); 121 121 }; 122 122 like( $@, qr/1 - 2 were expected/, "too many params" ); 123 123 124 Test:: IData->cleanup;124 Test::Nebulous->cleanup;
Note:
See TracChangeset
for help on using the changeset viewer.
