Index: trunk/Nebulous-Server/t/01_load.t =================================================================== --- trunk/Nebulous-Server/t/01_load.t (revision 4436) +++ trunk/Nebulous-Server/t/01_load.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 01_load.t,v 1.6 2005-06-30 01:37:16 jhoblitt Exp $ +# $Id: 01_load.t,v 1.7 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -12,10 +12,10 @@ use Test::More tests => 8; -BEGIN { use_ok( 'PS::IPP::IData::Client' ); } -BEGIN { use_ok( 'PS::IPP::IData::Client::Log' ); } -BEGIN { use_ok( 'PS::IPP::IData::Client::HTTP' ); } -BEGIN { use_ok( 'PS::IPP::IData::Util' ); } -BEGIN { use_ok( 'PS::IPP::IData::Server' ); } -BEGIN { use_ok( 'PS::IPP::IData::Server::SQL' ); } -BEGIN { use_ok( 'PS::IPP::IData::Server::Log' ); } -BEGIN { use_ok( 'PS::IPP::IData::Server::SOAP' ); } +BEGIN { use_ok( 'Nebulous::Client' ); } +BEGIN { use_ok( 'Nebulous::Client::Log' ); } +BEGIN { use_ok( 'Nebulous::Client::HTTP' ); } +BEGIN { use_ok( 'Nebulous::Util' ); } +BEGIN { use_ok( 'Nebulous::Server' ); } +BEGIN { use_ok( 'Nebulous::Server::SQL' ); } +BEGIN { use_ok( 'Nebulous::Server::Log' ); } +BEGIN { use_ok( 'Nebulous::Server::SOAP' ); } Index: trunk/Nebulous-Server/t/02_server_setup.t =================================================================== --- trunk/Nebulous-Server/t/02_server_setup.t (revision 4436) +++ trunk/Nebulous-Server/t/02_server_setup.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 02_server_setup.t,v 1.2 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 02_server_setup.t,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -12,11 +12,11 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Server; -use Test::IData; +use Nebulous::Server; +use Test::Nebulous; -Test::IData->setup; +Test::Nebulous->setup; ok( - PS::IPP::IData::Server->setup( + Nebulous::Server->setup( "DBI:mysql:database=test:host=localhost", "test", @@ -26,8 +26,8 @@ ); -Test::IData->setup; +Test::Nebulous->setup; eval { - PS::IPP::IData::Server->setup( + Nebulous::Server->setup( "DBI:mysql:database=foobar:host=localhost", "baz", @@ -37,3 +37,3 @@ like( $@, qr/DBI connect.*? failed/, "bad dsn/user/pass" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/03_server_create_object.t =================================================================== --- trunk/Nebulous-Server/t/03_server_create_object.t (revision 4436) +++ trunk/Nebulous-Server/t/03_server_create_object.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 03_server_create_object.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 03_server_create_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -12,11 +12,11 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Server; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Server; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; -my $idata = "PS::IPP::IData::Server"; +my $neb = "Nebulous::Server"; -$idata->setup( +$neb->setup( "DBI:mysql:database=test:host=localhost", "test", @@ -24,9 +24,9 @@ ); -Test::IData->setup; +Test::Nebulous->setup; { # key - my $uri = $idata->create_object( "foo" ); + my $uri = $neb->create_object( "foo" ); ok( -e _get_file_path( $uri ), "file exists" ); @@ -34,9 +34,9 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, class - my $uri = $idata->create_object( "foo", 0 ); + my $uri = $neb->create_object( "foo", 0 ); ok( -e _get_file_path( $uri ), "file exists" ); @@ -44,9 +44,9 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, class, volume - my $uri = $idata->create_object( "foo", 0, "node01" ); + my $uri = $neb->create_object( "foo", 0, "node01" ); ok( -e _get_file_path( $uri ), "file exists" ); @@ -54,9 +54,9 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, class, volume, comment - my $uri = $idata->create_object( "foo", 0, "node01", "this is foo" ); + my $uri = $neb->create_object( "foo", 0, "node01", "this is foo" ); ok( -e _get_file_path( $uri ), "file exists" ); @@ -64,25 +64,25 @@ } -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object( "foo" ); - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); + $neb->create_object( "foo" ); }; like( $@, qr/Duplicate entry/, "object already exists" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object(); + $neb->create_object(); }; like( $@, qr/2 - 4 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object( 1, 2, 3, 4, 5 ); + $neb->create_object( 1, 2, 3, 4, 5 ); }; like( $@, qr/2 - 4 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/04_server_replicate_object.t =================================================================== --- trunk/Nebulous-Server/t/04_server_replicate_object.t (revision 4436) +++ trunk/Nebulous-Server/t/04_server_replicate_object.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 04_server_replicate_object.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 04_server_replicate_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -12,11 +12,11 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Server; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Server; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; -my $idata = "PS::IPP::IData::Server"; +my $neb = "Nebulous::Server"; -$idata->setup( +$neb->setup( "DBI:mysql:database=test:host=localhost", "test", @@ -24,10 +24,10 @@ ); -Test::IData->setup; +Test::Nebulous->setup; { # key - $idata->create_object( "foo" ); - my $uri = $idata->replicate_object( "foo" ); + $neb->create_object( "foo" ); + my $uri = $neb->replicate_object( "foo" ); ok( -e _get_file_path( $uri ), "file exists" ); @@ -35,10 +35,10 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, $volume - $idata->create_object( "foo" ); - my $uri = $idata->replicate_object( "foo", "node01" ); + $neb->create_object( "foo" ); + my $uri = $neb->replicate_object( "foo", "node01" ); ok( -e _get_file_path( $uri ), "file exists" ); @@ -46,11 +46,11 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, $volume - $idata->create_object( "foo" ); - my $uri1 = $idata->replicate_object( "foo", "node01" ); - my $uri2 = $idata->replicate_object( "foo", "node02" ); + $neb->create_object( "foo" ); + my $uri1 = $neb->replicate_object( "foo", "node01" ); + my $uri2 = $neb->replicate_object( "foo", "node02" ); ok( -e _get_file_path( $uri1 ), "file exists" ); @@ -60,24 +60,24 @@ } -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->replicate_object( "foo" ); + $neb->replicate_object( "foo" ); }; like( $@, qr/storage object does not exist/, "storage object does not exist" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->replicate_object(); + $neb->replicate_object(); }; like( $@, qr/1 - 2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->replicate_object( 1, 2, 3 ); + $neb->replicate_object( 1, 2, 3 ); }; like( $@, qr/1 - 2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/05_server_lock_object.t =================================================================== --- trunk/Nebulous-Server/t/05_server_lock_object.t (revision 4436) +++ trunk/Nebulous-Server/t/05_server_lock_object.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 05_server_lock_object.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 05_server_lock_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -12,11 +12,11 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Server; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Server; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; -my $idata = "PS::IPP::IData::Server"; +my $neb = "Nebulous::Server"; -$idata->setup( +$neb->setup( "DBI:mysql:database=test:host=localhost", "test", @@ -24,100 +24,100 @@ ); -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - ok( $idata->lock_object( "foo", "read" ), "read lock" ); + ok( $neb->lock_object( "foo", "read" ), "read lock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - ok( $idata->lock_object( "foo", "read" ), "read lock" ); - ok( $idata->lock_object( "foo", "read" ), "read lock" ); + ok( $neb->lock_object( "foo", "read" ), "read lock" ); + ok( $neb->lock_object( "foo", "read" ), "read lock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - ok( $idata->lock_object( "foo", "write" ), "write lock" ); + ok( $neb->lock_object( "foo", "write" ), "write lock" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->lock_object( "foo", "read" ); + $neb->lock_object( "foo", "read" ); }; like( $@, qr/storage object does not exist/, "storage object does not exist" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->lock_object( "foo", "write" ); + $neb->lock_object( "foo", "write" ); }; like( $@, qr/storage object does not exist/, "storage object does not exist" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->lock_object( "foo", "write" ); - $idata->lock_object( "foo", "write" ); + $neb->lock_object( "foo", "write" ); + $neb->lock_object( "foo", "write" ); }; like( $@, qr/can not write lock twice/, "can not write lock twice" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->lock_object( "foo", "read" ); - $idata->lock_object( "foo", "write" ); + $neb->lock_object( "foo", "read" ); + $neb->lock_object( "foo", "write" ); }; like( $@, qr/can not write lock after read lock/, "can not write lock after read lock" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->lock_object( "foo", "write" ); - $idata->lock_object( "foo", "read" ); + $neb->lock_object( "foo", "write" ); + $neb->lock_object( "foo", "read" ); }; like( $@, qr/can not read lock after write lock/, "can not read lock after write lock" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->lock_object(); + $neb->lock_object(); }; like( $@, qr/2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->lock_object( "foo" ); + $neb->lock_object( "foo" ); }; like( $@, qr/2 were expected/, "not enough params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->lock_object( "foo", "both" ); + $neb->lock_object( "foo", "both" ); }; like( $@, qr/is read or write/, "not read or write" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->lock_object( "foo", 'read', 3 ); + $neb->lock_object( "foo", 'read', 3 ); }; like( $@, qr/2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/06_server_unlock_object.t =================================================================== --- trunk/Nebulous-Server/t/06_server_unlock_object.t (revision 4436) +++ trunk/Nebulous-Server/t/06_server_unlock_object.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 06_server_unlock_object.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 06_server_unlock_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -12,11 +12,11 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Server; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Server; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; -my $idata = "PS::IPP::IData::Server"; +my $neb = "Nebulous::Server"; -$idata->setup( +$neb->setup( "DBI:mysql:database=test:host=localhost", "test", @@ -24,115 +24,115 @@ ); -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->lock_object( "foo", "read" ); + $neb->lock_object( "foo", "read" ); - ok( $idata->unlock_object( "foo", "read" ), "read unlock" ); + ok( $neb->unlock_object( "foo", "read" ), "read unlock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->lock_object( "foo", "read" ); - $idata->lock_object( "foo", "read" ); + $neb->lock_object( "foo", "read" ); + $neb->lock_object( "foo", "read" ); - ok( $idata->unlock_object( "foo", "read" ), "read unlock" ); - ok( $idata->unlock_object( "foo", "read" ), "read unlock" ); + ok( $neb->unlock_object( "foo", "read" ), "read unlock" ); + ok( $neb->unlock_object( "foo", "read" ), "read unlock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->lock_object( "foo", "write" ); + $neb->lock_object( "foo", "write" ); - ok( $idata->unlock_object( "foo", "write" ), "write unlock" ); + ok( $neb->unlock_object( "foo", "write" ), "write unlock" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->unlock_object( "foo", "read" ); + $neb->unlock_object( "foo", "read" ); }; like( $@, qr/storage object does not exist/, "storage object does not exist" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->unlock_object( "foo", "write" ); + $neb->unlock_object( "foo", "write" ); }; like( $@, qr/storage object does not exist/, "storage object does not exist" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->unlock_object( "foo", "read" ); + $neb->unlock_object( "foo", "read" ); }; like( $@, qr/can not remove non-existant read lock/, "no lock set" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->unlock_object( "foo", "write" ); + $neb->unlock_object( "foo", "write" ); }; like( $@, qr/can not remove non-existant write lock/, "no lock set" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object( "foo" ); - $idata->lock_object( "foo", "write" ); + $neb->create_object( "foo" ); + $neb->lock_object( "foo", "write" ); - $idata->unlock_object( "foo", "read" ); + $neb->unlock_object( "foo", "read" ); }; like( $@, qr/can not have a read lock under a write lock/, "read unlock under write lock" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->create_object( "foo" ); - $idata->lock_object( "foo", "read" ); + $neb->create_object( "foo" ); + $neb->lock_object( "foo", "read" ); - $idata->unlock_object( "foo", "write" ); + $neb->unlock_object( "foo", "write" ); }; like( $@, qr/can not have a write lock under a read lock/, "write unlock under read lock" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->unlock_object(); + $neb->unlock_object(); }; like( $@, qr/2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->unlock_object( "foo" ); + $neb->unlock_object( "foo" ); }; like( $@, qr/2 were expected/, "not enough params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->unlock_object( "foo", "both" ); + $neb->unlock_object( "foo", "both" ); }; like( $@, qr/is read or write/, "not read or write" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->unlock_object( "foo", 'read', 3 ); + $neb->unlock_object( "foo", 'read', 3 ); }; like( $@, qr/2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/07_server_find_instances.t =================================================================== --- trunk/Nebulous-Server/t/07_server_find_instances.t (revision 4436) +++ trunk/Nebulous-Server/t/07_server_find_instances.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 07_server_find_instances.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 07_server_find_instances.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -12,11 +12,11 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Server; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Server; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; -my $idata = "PS::IPP::IData::Server"; +my $neb = "Nebulous::Server"; -$idata->setup( +$neb->setup( "DBI:mysql:database=test:host=localhost", "test", @@ -24,46 +24,46 @@ ); -Test::IData->setup; +Test::Nebulous->setup; { # key - my $uri = $idata->create_object( "foo" ); + my $uri = $neb->create_object( "foo" ); - my $locations = $idata->find_instances( "foo" ); + my $locations = $neb->find_instances( "foo" ); is( $uri, $locations->[0], "URIs match" ); } -Test::IData->setup; +Test::Nebulous->setup; { # key - my $uri1 = $idata->create_object( "foo" ); - my $uri2 = $idata->replicate_object( "foo" ); + my $uri1 = $neb->create_object( "foo" ); + my $uri2 = $neb->replicate_object( "foo" ); - my $locations = $idata->find_instances( "foo" ); + my $locations = $neb->find_instances( "foo" ); ok( eq_set( [$uri1, $uri2], $locations ), "URIs match" ); } -Test::IData->setup; +Test::Nebulous->setup; { # key, volume - my $uri = $idata->create_object( "foo" ); + my $uri = $neb->create_object( "foo" ); - my $locations = $idata->find_instances( "foo", "node01" ); + my $locations = $neb->find_instances( "foo", "node01" ); is( $uri, $locations->[0], "URIs match" ); } -Test::IData->setup; +Test::Nebulous->setup; { # key - my $uri1 = $idata->create_object( "foo" ); - my $uri2 = $idata->replicate_object( "foo" ); + my $uri1 = $neb->create_object( "foo" ); + my $uri2 = $neb->replicate_object( "foo" ); - my $locations = $idata->find_instances( "foo", "node01" ); + my $locations = $neb->find_instances( "foo", "node01" ); ok( eq_set( [$uri1, $uri2], $locations ), "URIs match" ); @@ -71,24 +71,24 @@ -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->find_instances( "foo" ); + $neb->find_instances( "foo" ); }; like( $@, qr/no instances found/, "storage object does not exist" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->find_instances(); + $neb->find_instances(); }; like( $@, qr/1 - 2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->find_instances( "foo", 'read', 3 ); + $neb->find_instances( "foo", 'read', 3 ); }; like( $@, qr/1 - 2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/08_server_delete_instance.t =================================================================== --- trunk/Nebulous-Server/t/08_server_delete_instance.t (revision 4436) +++ trunk/Nebulous-Server/t/08_server_delete_instance.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 08_server_delete_instance.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 08_server_delete_instance.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -12,11 +12,11 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Server; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Server; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; -my $idata = "PS::IPP::IData::Server"; +my $neb = "Nebulous::Server"; -$idata->setup( +$neb->setup( "DBI:mysql:database=test:host=localhost", "test", @@ -24,52 +24,52 @@ ); -Test::IData->setup; +Test::Nebulous->setup; { - my $uri = $idata->create_object( "foo" ); + my $uri = $neb->create_object( "foo" ); - ok( $idata->delete_instance( $uri ), "delete instance" ); + ok( $neb->delete_instance( $uri ), "delete instance" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $uri1 = $idata->create_object( "foo" ); - my $uri2 = $idata->replicate_object( "foo" ); + my $uri1 = $neb->create_object( "foo" ); + my $uri2 = $neb->replicate_object( "foo" ); - ok( $idata->delete_instance( $uri1 ), "delete instance" ); + ok( $neb->delete_instance( $uri1 ), "delete instance" ); - my $locations = $idata->find_instances( "foo" ); + my $locations = $neb->find_instances( "foo" ); is( $locations->[0], $uri2, "instance remains" ); - ok( $idata->delete_instance( $uri2 ), "delete instance" ); + ok( $neb->delete_instance( $uri2 ), "delete instance" ); eval { - $idata->find_instances( "foo" ); + $neb->find_instances( "foo" ); }; like( $@, qr/no instances found/, "storage object was deleted" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->delete_instance( "file:/foo" ); + $neb->delete_instance( "file:/foo" ); }; like( $@, qr/no instance is associated with uri/, "uri does not exist" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->delete_instance(); + $neb->delete_instance(); }; like( $@, qr/1 was expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->delete_instance( "foo", 2 ); + $neb->delete_instance( "foo", 2 ); }; like( $@, qr/1 was expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/09_server_stat_object.t =================================================================== --- trunk/Nebulous-Server/t/09_server_stat_object.t (revision 4436) +++ trunk/Nebulous-Server/t/09_server_stat_object.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 09_server_stat_object.t,v 1.4 2005-01-15 04:02:12 jhoblitt Exp $ +# $Id: 09_server_stat_object.t,v 1.5 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -12,11 +12,11 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Server; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Server; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; -my $idata = "PS::IPP::IData::Server"; +my $neb = "Nebulous::Server"; -$idata->setup( +$neb->setup( "DBI:mysql:database=test:host=localhost", "test", @@ -24,20 +24,20 @@ ); -Test::IData->setup; +Test::Nebulous->setup; { - my $uri = $idata->create_object( "foo" ); + my $uri = $neb->create_object( "foo" ); - my $info = $idata->stat_object( "foo" ); + my $info = $neb->stat_object( "foo" ); is( scalar @$info, 8, "number of columns" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $uri = $idata->create_object( "foo", 9, "node01", "foobar" ); + my $uri = $neb->create_object( "foo", 9, "node01", "foobar" ); - my $info = $idata->stat_object( "foo" ); + my $info = $neb->stat_object( "foo" ); is( scalar @$info, 8, "number of columns" ); @@ -52,24 +52,24 @@ } -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->stat_object( "foo" ); + $neb->stat_object( "foo" ); }; like( $@, qr/no storage object found/, "object does not exist" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->stat_object(); + $neb->stat_object(); }; like( $@, qr/1 was expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - $idata->stat_object( "foo", 2 ); + $neb->stat_object( "foo", 2 ); }; like( $@, qr/1 was expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/10_client_new.t =================================================================== --- trunk/Nebulous-Server/t/10_client_new.t (revision 4436) +++ trunk/Nebulous-Server/t/10_client_new.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 10_client_new.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 10_client_new.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,42 +14,42 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - isa_ok( $idata, "PS::IPP::IData::Client" ); + isa_ok( $neb, "Nebulous::Client" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - uri => "http://example.com/PS/IPP/IData/Client", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + uri => "http://example.com/PS/IPP/Nebulous/Client", ); - isa_ok( $idata, "PS::IPP::IData::Client" ); + isa_ok( $neb, "Nebulous::Client" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - PS::IPP::IData::Client->new; + Nebulous::Client->new; }; like( $@, qr/Mandatory parameter/, "no proxy" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - PS::IPP::IData::Client->new( + Nebulous::Client->new( proxy => "foo", dog => "do" @@ -58,3 +58,3 @@ like( $@, qr/not listed in the validation options/, "bad param" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/11_client_create.t =================================================================== --- trunk/Nebulous-Server/t/11_client_create.t (revision 4436) +++ trunk/Nebulous-Server/t/11_client_create.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 11_client_create.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 11_client_create.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,94 +14,94 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $fh = $idata->create( "foo" ); + my $fh = $neb->create( "foo" ); is( ref $fh, 'GLOB', "good filehandle" ); } -Test::IData->setup; +Test::Nebulous->setup; { # key, class - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $fh = $idata->create( "foo", 0 ); + my $fh = $neb->create( "foo", 0 ); is( ref $fh, 'GLOB', "good filehandle" ); } -Test::IData->setup; +Test::Nebulous->setup; { # key, class, volume - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $fh = $idata->create( "foo", 0, "node01" ); + my $fh = $neb->create( "foo", 0, "node01" ); is( ref $fh, 'GLOB', "good filehandle" ); } -Test::IData->setup; +Test::Nebulous->setup; { # key, class, volume, comment - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $fh = $idata->create( "foo", 0, "node01", "this is foo" ); + my $fh = $neb->create( "foo", 0, "node01", "this is foo" ); is( ref $fh, 'GLOB', "good filehandle" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - is( $idata->create( "foo" ), undef, "object already exists" ); + $neb->create( "foo" ); + is( $neb->create( "foo" ), undef, "object already exists" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create(); + $neb->create(); }; like( $@, qr/2 - 4 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( 1, 2, 3, 4, 5 ); + $neb->create( 1, 2, 3, 4, 5 ); }; like( $@, qr/2 - 4 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/12_client_replicate.t =================================================================== --- trunk/Nebulous-Server/t/12_client_replicate.t (revision 4436) +++ trunk/Nebulous-Server/t/12_client_replicate.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 12_client_replicate.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 12_client_replicate.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,20 +14,20 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - my $uri = $idata->replicate( "foo" ); + my $uri = $neb->replicate( "foo" ); ok( $uri, "good replication" ); @@ -35,14 +35,14 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, $volume - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - my $uri = $idata->replicate( "foo", "node01" ); + my $uri = $neb->replicate( "foo", "node01" ); ok( $uri, "good replication" ); @@ -50,15 +50,15 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, $volume - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - my $uri1 = $idata->replicate( "foo", "node01" ); - my $uri2 = $idata->replicate( "foo", "node02" ); + my $uri1 = $neb->replicate( "foo", "node01" ); + my $uri2 = $neb->replicate( "foo", "node02" ); ok( $uri1, "good replication" ); @@ -68,34 +68,34 @@ } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $uri = $idata->replicate( "foo" ); + my $uri = $neb->replicate( "foo" ); is( $uri, undef, "storage object does not exist" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->replicate(); + $neb->replicate(); }; like( $@, qr/1 - 2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->replicate( 1, 2, 3 ); + $neb->replicate( 1, 2, 3 ); }; like( $@, qr/1 - 2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/13_client_cull.t =================================================================== --- trunk/Nebulous-Server/t/13_client_cull.t (revision 4436) +++ trunk/Nebulous-Server/t/13_client_cull.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 13_client_cull.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 13_client_cull.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,21 +14,21 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->replicate( "foo" ); + $neb->create( "foo" ); + $neb->replicate( "foo" ); - my $uri = $idata->cull( "foo" ); + my $uri = $neb->cull( "foo" ); ok( $uri, "good cull" ); @@ -36,5 +36,5 @@ } -Test::IData->setup; +Test::Nebulous->setup; SKIP: { @@ -42,11 +42,11 @@ # key, $volume - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->replicate( "foo", "node01" ); + $neb->create( "foo" ); + $neb->replicate( "foo", "node01" ); - my $uri = $idata->cull( "foo", "node01" ); + my $uri = $neb->cull( "foo", "node01" ); ok( $uri, "good cull" ); @@ -54,18 +54,18 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - $idata->replicate( "foo", "node01" ); - $idata->replicate( "foo", "node02" ); + $neb->replicate( "foo", "node01" ); + $neb->replicate( "foo", "node02" ); - my $uri1 = $idata->cull( "foo" ); - my $uri2 = $idata->cull( "foo" ); + my $uri1 = $neb->cull( "foo" ); + my $uri2 = $neb->cull( "foo" ); ok( $uri1, "good cull" ); @@ -75,5 +75,5 @@ } -Test::IData->setup; +Test::Nebulous->setup; SKIP: { @@ -81,14 +81,14 @@ # key, $volume - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - $idata->replicate( "foo", "node01" ); - $idata->replicate( "foo", "node02" ); + $neb->replicate( "foo", "node01" ); + $neb->replicate( "foo", "node02" ); - my $uri1 = $idata->cull( "foo", "node01" ); - my $uri2 = $idata->cull( "foo", "node02" ); + my $uri1 = $neb->cull( "foo", "node01" ); + my $uri2 = $neb->cull( "foo", "node02" ); ok( $uri1, "good cull" ); @@ -98,34 +98,34 @@ } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $uri = $idata->cull( "foo" ); + my $uri = $neb->cull( "foo" ); is( $uri, undef, "storage object does not exist" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->cull(); + $neb->cull(); }; like( $@, qr/1 was expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->cull( 1, 2 ); + $neb->cull( 1, 2 ); }; like( $@, qr/1 was expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/14_client_lock.t =================================================================== --- trunk/Nebulous-Server/t/14_client_lock.t (revision 4436) +++ trunk/Nebulous-Server/t/14_client_lock.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 14_client_lock.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 14_client_lock.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,91 +14,91 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { # key, type - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - ok( $idata->lock( "foo", "read" ), "read lock" ); -} - -Test::IData->setup; - -{ - # key, type, timeout - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - ok( $idata->lock( "foo", "read", 10 ), "read lock" ); -} - -Test::IData->setup; - -{ - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - ok( $idata->lock( "foo", "read" ), "read lock" ); - ok( $idata->lock( "foo", "read" ), "read lock" ); -} - -Test::IData->setup; + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + ok( $neb->lock( "foo", "read" ), "read lock" ); +} + +Test::Nebulous->setup; + +{ + # key, type, timeout + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + ok( $neb->lock( "foo", "read", 10 ), "read lock" ); +} + +Test::Nebulous->setup; + +{ + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + ok( $neb->lock( "foo", "read" ), "read lock" ); + ok( $neb->lock( "foo", "read" ), "read lock" ); +} + +Test::Nebulous->setup; { # key, type - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - ok( $idata->lock( "foo", "write" ), "write lock" ); -} - -Test::IData->setup; - -{ - # key, type, timeout - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - ok( $idata->lock( "foo", "write", 10 ), "write lock" ); -} - -Test::IData->setup; - -{ - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - - is( $idata->lock( "foo", "read" ), undef, "storage object does not exist" ); -} - -Test::IData->setup; - -{ - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - - is( $idata->lock( "foo", "write" ), undef, "storage object does not exist" ); -} - -Test::IData->setup; + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + ok( $neb->lock( "foo", "write" ), "write lock" ); +} + +Test::Nebulous->setup; + +{ + # key, type, timeout + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + ok( $neb->lock( "foo", "write", 10 ), "write lock" ); +} + +Test::Nebulous->setup; + +{ + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + + is( $neb->lock( "foo", "read" ), undef, "storage object does not exist" ); +} + +Test::Nebulous->setup; + +{ + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + + is( $neb->lock( "foo", "write" ), undef, "storage object does not exist" ); +} + +Test::Nebulous->setup; diag "testing a spinlock, this will be a litle slow..."; @@ -109,11 +109,11 @@ # key, type, timeout - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - $idata->lock( "foo", "read" ); - $idata->lock( "foo", "write" ); + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + $neb->lock( "foo", "read" ); + $neb->lock( "foo", "write" ); alarm 0; @@ -121,5 +121,5 @@ like( $@, qr/timeout/, "default spinlock" ); -Test::IData->setup; +Test::Nebulous->setup; diag "testing a spinlock, this will be a litle slow..."; @@ -130,11 +130,11 @@ # key, type, timeout - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - $idata->lock( "foo", "read" ); - unless ( $idata->lock( "foo", "write" ) ) { + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + $neb->lock( "foo", "read" ); + unless ( $neb->lock( "foo", "write" ) ) { alarm 0; die "gaveup"; @@ -145,5 +145,5 @@ like( $@, qr/gaveup/, "default spinlock" ); -Test::IData->setup; +Test::Nebulous->setup; diag "testing a spinlock, this will be a litle slow..."; @@ -154,11 +154,11 @@ # key, type, timeout - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - $idata->lock( "foo", "read" ); - $idata->lock( "foo", "write", 5 ); + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + $neb->lock( "foo", "read" ); + $neb->lock( "foo", "write", 5 ); alarm 0; @@ -166,5 +166,5 @@ like( $@, qr/timeout/, "specified spinlock" ); -Test::IData->setup; +Test::Nebulous->setup; diag "testing a spinlock, this will be a litle slow..."; @@ -175,11 +175,11 @@ # key, type, timeout - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - $idata->lock( "foo", "read" ); - unless ( $idata->lock( "foo", "write", 5 ) ) { + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + $neb->lock( "foo", "read" ); + unless ( $neb->lock( "foo", "write", 5 ) ) { alarm 0; die "gaveup"; @@ -191,83 +191,83 @@ like( $@, qr/gaveup/, "specified spinlock" ); -Test::IData->setup; - -{ - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - $idata->lock( "foo", "write" ); - is( $idata->lock( "foo", "write", 1 ), undef, "can not write lock twice" ); -} - -Test::IData->setup; - -{ - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - $idata->lock( "foo", "read" ); - is( $idata->lock( "foo", "write", 1 ), undef, "can not write lock after read lock" ); -} - -Test::IData->setup; - -{ - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - $idata->create( "foo" ); - - $idata->lock( "foo", "write" ); - is( $idata->lock( "foo", "read", 1 ), undef, "can not read lock after write lock" ); -} - -Test::IData->setup; - -eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - - $idata->lock(); +Test::Nebulous->setup; + +{ + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + $neb->lock( "foo", "write" ); + is( $neb->lock( "foo", "write", 1 ), undef, "can not write lock twice" ); +} + +Test::Nebulous->setup; + +{ + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + $neb->lock( "foo", "read" ); + is( $neb->lock( "foo", "write", 1 ), undef, "can not write lock after read lock" ); +} + +Test::Nebulous->setup; + +{ + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + $neb->create( "foo" ); + + $neb->lock( "foo", "write" ); + is( $neb->lock( "foo", "read", 1 ), undef, "can not read lock after write lock" ); +} + +Test::Nebulous->setup; + +eval { + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + + $neb->lock(); }; like( $@, qr/2 - 3 were expected/, "no params" ); -Test::IData->setup; - -eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - - $idata->lock( "foo" ); +Test::Nebulous->setup; + +eval { + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + + $neb->lock( "foo" ); }; like( $@, qr/2 - 3 were expected/, "not enough params" ); -Test::IData->setup; - -eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - - $idata->lock( "foo", "both" ); +Test::Nebulous->setup; + +eval { + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + + $neb->lock( "foo", "both" ); }; like( $@, qr/is read or write/, "not read or write" ); -Test::IData->setup; - -eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", - ); - - $idata->lock( "foo", 'read', 3, "bar" ); +Test::Nebulous->setup; + +eval { + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", + ); + + $neb->lock( "foo", 'read', 3, "bar" ); }; like( $@, qr/2 - 3 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/15_client_unlock.t =================================================================== --- trunk/Nebulous-Server/t/15_client_unlock.t (revision 4436) +++ trunk/Nebulous-Server/t/15_client_unlock.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 15_client_unlock.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 15_client_unlock.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,157 +14,157 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->lock( "foo", "read" ); + $neb->create( "foo" ); + $neb->lock( "foo", "read" ); - ok( $idata->unlock( "foo", "read" ), "read unlock" ); + ok( $neb->unlock( "foo", "read" ), "read unlock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->lock( "foo", "read" ); - $idata->lock( "foo", "read" ); + $neb->create( "foo" ); + $neb->lock( "foo", "read" ); + $neb->lock( "foo", "read" ); - ok( $idata->unlock( "foo", "read" ), "read unlock" ); - ok( $idata->unlock( "foo", "read" ), "read unlock" ); + ok( $neb->unlock( "foo", "read" ), "read unlock" ); + ok( $neb->unlock( "foo", "read" ), "read unlock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->lock( "foo", "write" ); + $neb->create( "foo" ); + $neb->lock( "foo", "write" ); - ok( $idata->unlock( "foo", "write" ), "write unlock" ); + ok( $neb->unlock( "foo", "write" ), "write unlock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - is( $idata->unlock( "foo", "read" ), undef, "storage object does not exist" ); + is( $neb->unlock( "foo", "read" ), undef, "storage object does not exist" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - is( $idata->unlock( "foo", "write" ), undef, "storage object does not exist" ); + is( $neb->unlock( "foo", "write" ), undef, "storage object does not exist" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - is( $idata->unlock( "foo", "read" ), undef, "no lock set" ); + is( $neb->unlock( "foo", "read" ), undef, "no lock set" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - is( $idata->unlock( "foo", "write" ), undef, "no lock set" ); + is( $neb->unlock( "foo", "write" ), undef, "no lock set" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->lock( "foo", "write" ); + $neb->create( "foo" ); + $neb->lock( "foo", "write" ); - is( $idata->unlock( "foo", "read" ), undef, "read unlock under write lock" ); + is( $neb->unlock( "foo", "read" ), undef, "read unlock under write lock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->lock( "foo", "read" ); + $neb->create( "foo" ); + $neb->lock( "foo", "read" ); - is( $idata->unlock( "foo", "write" ), undef, "write unlock under read lock" ); + is( $neb->unlock( "foo", "write" ), undef, "write unlock under read lock" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->unlock(); + $neb->unlock(); }; like( $@, qr/2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->unlock( "foo" ); + $neb->unlock( "foo" ); }; like( $@, qr/2 were expected/, "not enough params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->unlock( "foo", "both" ); + $neb->unlock( "foo", "both" ); }; like( $@, qr/is read or write/, "not read or write" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->unlock( "foo", 'read', 3 ); + $neb->unlock( "foo", 'read', 3 ); }; like( $@, qr/2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/16_client_find_instances.t =================================================================== --- trunk/Nebulous-Server/t/16_client_find_instances.t (revision 4436) +++ trunk/Nebulous-Server/t/16_client_find_instances.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 16_client_find_instances.t,v 1.5 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 16_client_find_instances.t,v 1.6 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,20 +14,20 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - my $locations = $idata->find_instances( "foo" ); + my $locations = $neb->find_instances( "foo" ); is( scalar @$locations, 1, "found 1" ); @@ -36,15 +36,15 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->replicate( "foo" ); + $neb->create( "foo" ); + $neb->replicate( "foo" ); - my $locations = $idata->find_instances( "foo" ); + my $locations = $neb->find_instances( "foo" ); is( scalar @$locations, 2, "found 2" ); @@ -55,14 +55,14 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, volume - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - my $locations = $idata->find_instances( "foo", "node01" ); + my $locations = $neb->find_instances( "foo", "node01" ); is( scalar @$locations, 1, "found 1" ); @@ -71,15 +71,15 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->replicate( "foo" ); + $neb->create( "foo" ); + $neb->replicate( "foo" ); - my $locations = $idata->find_instances( "foo", "node01" ); + my $locations = $neb->find_instances( "foo", "node01" ); is( scalar @$locations, 2, "found 2" ); @@ -90,35 +90,35 @@ } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - is( $idata->find_instances( "foo" ), undef, "storage object does not exist" ); + is( $neb->find_instances( "foo" ), undef, "storage object does not exist" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->find_instances(); + $neb->find_instances(); }; like( $@, qr/1 - 2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->find_instances( "foo", 'read', 3 ); + $neb->find_instances( "foo", 'read', 3 ); }; like( $@, qr/1 - 2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/17_client_find.t =================================================================== --- trunk/Nebulous-Server/t/17_client_find.t (revision 4436) +++ trunk/Nebulous-Server/t/17_client_find.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 17_client_find.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $ +# $Id: 17_client_find.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,57 +14,57 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $uri = $idata->create( "foo" ); + my $uri = $neb->create( "foo" ); - my $path = $idata->find( "foo" ); + my $path = $neb->find( "foo" ); ok( -e $path, "file exists" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $path = $idata->find( "foo" ); + my $path = $neb->find( "foo" ); ok( ! -e $path, "file doesn't exist" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->find(); + $neb->find(); }; like( $@, qr/1 was expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->find( "foo", "bar" ); + $neb->find( "foo", "bar" ); }; like( $@, qr/1 was expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/18_client_open.t =================================================================== --- trunk/Nebulous-Server/t/18_client_open.t (revision 4436) +++ trunk/Nebulous-Server/t/18_client_open.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 18_client_open.t,v 1.1 2005-01-05 01:41:05 jhoblitt Exp $ +# $Id: 18_client_open.t,v 1.2 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,85 +14,85 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - my $fh = $idata->open( "foo", 'read' ); + $neb->create( "foo" ); + my $fh = $neb->open( "foo", 'read' ); is( ref $fh, 'GLOB', "good filehandle" ); } -Test::IData->setup; +Test::Nebulous->setup; { # key - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - my $fh = $idata->open( "foo", 'write' ); + $neb->create( "foo" ); + my $fh = $neb->open( "foo", 'write' ); is( ref $fh, 'GLOB', "good filehandle" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - is( ref $idata->open( "foo", 'write' ), 'GLOB', "create new object" ); + is( ref $neb->open( "foo", 'write' ), 'GLOB', "create new object" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - is( $idata->open( "foo", 'read' ), undef, "can't create new object" ); + is( $neb->open( "foo", 'read' ), undef, "can't create new object" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->open( "foo", 'bar' ); + $neb->open( "foo", 'bar' ); }; like( $@, qr/is read or write/, "2nd params not read or write" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->open(); + $neb->open(); }; like( $@, qr/2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->open( 1, 'read', 3 ); + $neb->open( 1, 'read', 3 ); }; like( $@, qr/2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/19_client_delete.t =================================================================== --- trunk/Nebulous-Server/t/19_client_delete.t (revision 4436) +++ trunk/Nebulous-Server/t/19_client_delete.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 19_client_delete.t,v 1.2 2005-01-05 22:27:22 jhoblitt Exp $ +# $Id: 19_client_delete.t,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,70 +14,70 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - ok( $idata->delete( "foo" ), "delete object" ); + ok( $neb->delete( "foo" ), "delete object" ); - my $locations = $idata->find_instances( "foo" ); + my $locations = $neb->find_instances( "foo" ); is( $locations, undef, "no instances" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->replicate( "foo" ); + $neb->create( "foo" ); + $neb->replicate( "foo" ); - ok( $idata->delete( "foo" ), "delete object" ); + ok( $neb->delete( "foo" ), "delete object" ); - my $locations = $idata->find_instances( "foo" ); + my $locations = $neb->find_instances( "foo" ); is( $locations, undef, "no instances" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - is( $idata->delete( "foo" ), undef, "delete non-existant object" ); + is( $neb->delete( "foo" ), undef, "delete non-existant object" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->delete(); + $neb->delete(); }; like( $@, qr/1 was expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->delete( "foo", 2 ); + $neb->delete( "foo", 2 ); }; like( $@, qr/1 was expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/20_client_copy.t =================================================================== --- trunk/Nebulous-Server/t/20_client_copy.t (revision 4436) +++ trunk/Nebulous-Server/t/20_client_copy.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 20_client_copy.t,v 1.1 2005-01-04 02:13:21 jhoblitt Exp $ +# $Id: 20_client_copy.t,v 1.2 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,22 +14,22 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - ok( $idata->copy( "foo", "foobar" ), "copied object" ); + ok( $neb->copy( "foo", "foobar" ), "copied object" ); - my $locations1 = $idata->find_instances( "foobar" ); - my $locations2 = $idata->find_instances( "foobar" ); + my $locations1 = $neb->find_instances( "foobar" ); + my $locations2 = $neb->find_instances( "foobar" ); is( scalar @$locations1, 1, "old object has an instances" ); @@ -37,47 +37,47 @@ } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - ok( ! $idata->copy( "foo", "foobar" ), "copy non-existant object" ); + ok( ! $neb->copy( "foo", "foobar" ), "copy non-existant object" ); - my $locations = $idata->find_instances( "foobar" ); + my $locations = $neb->find_instances( "foobar" ); is( $locations, undef, "new object has no instances" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->copy(); + $neb->copy(); }; like( $@, qr/2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->copy( "foo" ); + $neb->copy( "foo" ); }; like( $@, qr/2 were expected/, "not enough params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->copy( "foo", "bar", "baz" ); + $neb->copy( "foo", "bar", "baz" ); }; like( $@, qr/2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/21_client_move.t =================================================================== --- trunk/Nebulous-Server/t/21_client_move.t (revision 4436) +++ trunk/Nebulous-Server/t/21_client_move.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 21_client_move.t,v 1.1 2005-01-04 02:48:31 jhoblitt Exp $ +# $Id: 21_client_move.t,v 1.2 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,22 +14,22 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - ok( $idata->move( "foo", "foobar" ), "move object" ); + ok( $neb->move( "foo", "foobar" ), "move object" ); - my $locations1 = $idata->find_instances( "foo" ); - my $locations2 = $idata->find_instances( "foobar" ); + my $locations1 = $neb->find_instances( "foo" ); + my $locations2 = $neb->find_instances( "foobar" ); is( $locations1, undef, "old object has no instances" ); @@ -37,47 +37,47 @@ } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - ok( ! $idata->move( "foo", "foobar" ), "move non-existant object" ); + ok( ! $neb->move( "foo", "foobar" ), "move non-existant object" ); - my $locations = $idata->find_instances( "foobar" ); + my $locations = $neb->find_instances( "foobar" ); is( $locations, undef, "new object has no instances" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->move(); + $neb->move(); }; like( $@, qr/2 were expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->move( "foo" ); + $neb->move( "foo" ); }; like( $@, qr/2 were expected/, "not enough params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->move( "foo", "bar", "baz" ); + $neb->move( "foo", "bar", "baz" ); }; like( $@, qr/2 were expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/22_client_delete_instance.t =================================================================== --- trunk/Nebulous-Server/t/22_client_delete_instance.t (revision 4436) +++ trunk/Nebulous-Server/t/22_client_delete_instance.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 22_client_delete_instance.t,v 1.1 2005-01-04 03:14:19 jhoblitt Exp $ +# $Id: 22_client_delete_instance.t,v 1.2 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,21 +14,21 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - my $locations = $idata->find_instances( "foo" ); + my $locations = $neb->find_instances( "foo" ); - my $uri = $idata->delete_instance( @$locations[0] ); + my $uri = $neb->delete_instance( @$locations[0] ); is( $uri, @$locations[0], "delete instance" ); @@ -37,24 +37,24 @@ } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); - $idata->replicate( "foo" ); + $neb->create( "foo" ); + $neb->replicate( "foo" ); - my $uri1 = $idata->find_instances( "foo" )->[0]; + my $uri1 = $neb->find_instances( "foo" )->[0]; - ok( $idata->delete_instance( $uri1 ), "delete instance" ); + ok( $neb->delete_instance( $uri1 ), "delete instance" ); - my $uri2 = $idata->find_instances( "foo" )->[0]; + my $uri2 = $neb->find_instances( "foo" )->[0]; isnt( $uri1, $uri2, "other instance remains" ); - ok( $idata->delete_instance( $uri2 ), "delete instance" ); + ok( $neb->delete_instance( $uri2 ), "delete instance" ); - my $locations = $idata->find_instances( "foo" ); + my $locations = $neb->find_instances( "foo" ); is( $locations, undef, "no remaning instances" ); @@ -62,31 +62,31 @@ { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $uri = $idata->delete_instance( "file:/foo" ); + my $uri = $neb->delete_instance( "file:/foo" ); is( $uri, undef, "uri does not exist" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->delete_instance(); + $neb->delete_instance(); }; like( $@, qr/1 was expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->delete_instance( "foo", 2 ); + $neb->delete_instance( "foo", 2 ); }; like( $@, qr/1 was expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/23_client_stat.t =================================================================== --- trunk/Nebulous-Server/t/23_client_stat.t (revision 4436) +++ trunk/Nebulous-Server/t/23_client_stat.t (revision 4440) @@ -3,5 +3,5 @@ # Copryight (C) 2004-2005 Joshua Hoblitt # -# $Id: 23_client_stat.t,v 1.2 2005-01-15 04:02:12 jhoblitt Exp $ +# $Id: 23_client_stat.t,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $ use strict; @@ -14,32 +14,32 @@ use lib qw( ./t ./lib ); -use PS::IPP::IData::Client; -use PS::IPP::IData::Util qw( :standard ); -use Test::IData; +use Nebulous::Client; +use Nebulous::Util qw( :standard ); +use Test::Nebulous; my $hostport = Apache::Test->config->{ 'hostport' }; -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo" ); + $neb->create( "foo" ); - my $info = $idata->stat( "foo" ); + my $info = $neb->stat( "foo" ); is( scalar @$info, 8, "number of columns" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->create( "foo", 9, "node01", "foobar" ); + $neb->create( "foo", 9, "node01", "foobar" ); - my $info = $idata->stat( "foo" ); + my $info = $neb->stat( "foo" ); is( scalar @$info, 8, "number of columns" ); @@ -54,34 +54,34 @@ } -Test::IData->setup; +Test::Nebulous->setup; { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - my $info = $idata->stat( "foo" ); + my $info = $neb->stat( "foo" ); is( $info, undef, "object does not exist" ); } -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->stat(); + $neb->stat(); }; like( $@, qr/1 was expected/, "no params" ); -Test::IData->setup; +Test::Nebulous->setup; eval { - my $idata = PS::IPP::IData::Client->new( - proxy => "http://$hostport/idata", + my $neb = Nebulous::Client->new( + proxy => "http://$hostport/nebulous", ); - $idata->stat( "foo", 2 ); + $neb->stat( "foo", 2 ); }; like( $@, qr/1 was expected/, "too many params" ); -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/apache_03_server_create_object.x =================================================================== --- trunk/Nebulous-Server/t/apache_03_server_create_object.x (revision 4436) +++ trunk/Nebulous-Server/t/apache_03_server_create_object.x (revision 4440) @@ -11,19 +11,19 @@ use Apache::TestUtil; -use PS::IPP::IData::Util qw( :standard ); +use Nebulous::Util qw( :standard ); use SOAP::Lite; -use Test::IData; +use Test::Nebulous; my $hostport = Apache::Test::config()->{ 'hostport' }; -my $idata = SOAP::Lite->new( - proxy => "http://$hostport/idata", - uri => "http://pan-starrs.ifa.hawaii.edu/PS/IPP/IData/Server", +my $neb = SOAP::Lite->new( + proxy => "http://$hostport/nebulous", + uri => "http://pan-starrs.ifa.hawaii.edu/PS/IPP/Nebulous/Server", ); -Test::IData->setup; +Test::Nebulous->setup; { # key - my $uri = $idata->create_object( "foo" )->result; + my $uri = $neb->create_object( "foo" )->result; ok( -e _get_file_path( $uri ), "file exists" ); @@ -32,10 +32,10 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, class - my $uri = $idata->create_object( "foo", 0 )->result; - $idata->delete_instance( $uri ); + my $uri = $neb->create_object( "foo", 0 )->result; + $neb->delete_instance( $uri ); ok( -e _get_file_path( $uri ), "file exists" ); @@ -44,10 +44,10 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, class, volume - my $uri = $idata->create_object( "foo", 0, "node01" )->result; - $idata->delete_instance( $uri ); + my $uri = $neb->create_object( "foo", 0, "node01" )->result; + $neb->delete_instance( $uri ); ok( -e _get_file_path( $uri ), "file exists" ); @@ -56,10 +56,10 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, class, volume, comment - my $uri = $idata->create_object( "foo", 0, "node01", "this is foo" )->result; - $idata->delete_instance( $uri ); + my $uri = $neb->create_object( "foo", 0, "node01", "this is foo" )->result; + $neb->delete_instance( $uri ); ok( -e _get_file_path( $uri ), "file exists" ); @@ -68,28 +68,28 @@ } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); - my $response = $idata->create_object( "foo" ); + $neb->create_object( "foo" ); + my $response = $neb->create_object( "foo" ); like( $response->faultstring, qr/Duplicate entry/, "object already exists" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $response = $idata->create_object(); + my $response = $neb->create_object(); like( $response->faultstring, qr/2 - 4 were expected/, "no params" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $response = $idata->create_object( 1, 2, 3, 4, 5 ); + my $response = $neb->create_object( 1, 2, 3, 4, 5 ); like( $response->faultstring, qr/2 - 4 were expected/, "too many params" ); } -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/apache_04_server_replicate_object.x =================================================================== --- trunk/Nebulous-Server/t/apache_04_server_replicate_object.x (revision 4436) +++ trunk/Nebulous-Server/t/apache_04_server_replicate_object.x (revision 4440) @@ -11,20 +11,20 @@ use Apache::TestUtil; -use PS::IPP::IData::Util qw( :standard ); +use Nebulous::Util qw( :standard ); use SOAP::Lite; -use Test::IData; +use Test::Nebulous; my $hostport = Apache::Test::config()->{ 'hostport' }; -my $idata = SOAP::Lite->new( - proxy => "http://$hostport/idata", - uri => "http://pan-starrs.ifa.hawaii.edu/PS/IPP/IData/Server", +my $neb = SOAP::Lite->new( + proxy => "http://$hostport/nebulous", + uri => "http://pan-starrs.ifa.hawaii.edu/PS/IPP/Nebulous/Server", ); -Test::IData->setup; +Test::Nebulous->setup; { # key - $idata->create_object( "foo" ); - my $uri = $idata->replicate_object( "foo" )->result; + $neb->create_object( "foo" ); + my $uri = $neb->replicate_object( "foo" )->result; ok( -e _get_file_path( $uri ), "file exists" ); @@ -33,10 +33,10 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, $volume - $idata->create_object( "foo" ); - my $uri = $idata->replicate_object( "foo", "node01" )->result; + $neb->create_object( "foo" ); + my $uri = $neb->replicate_object( "foo", "node01" )->result; ok( -e _get_file_path( $uri ), "file exists" ); @@ -45,11 +45,11 @@ } -Test::IData->setup; +Test::Nebulous->setup; { # key, $volume - $idata->create_object( "foo" ); - my $uri1 = $idata->replicate_object( "foo", "node01" )->result; - my $uri2 = $idata->replicate_object( "foo", "node02" )->result; + $neb->create_object( "foo" ); + my $uri1 = $neb->replicate_object( "foo", "node01" )->result; + my $uri2 = $neb->replicate_object( "foo", "node02" )->result; ok( -e _get_file_path( $uri1 ), "file exists" ); @@ -60,27 +60,27 @@ } -Test::IData->setup; +Test::Nebulous->setup; { - my $response = $idata->replicate_object(); + my $response = $neb->replicate_object(); like( $response->faultstring, qr/1 - 2 were expected/, "no params" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $response = $idata->replicate_object( 1, 2, 3 ); + my $response = $neb->replicate_object( 1, 2, 3 ); like( $response->faultstring, qr/1 - 2 were expected/, "too many params" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $response = $idata->replicate_object( "foo" ); + my $response = $neb->replicate_object( "foo" ); like( $response->faultstring, qr/storage object does not exist/, "storage object does not exist" ); } -Test::IData->cleanup; +Test::Nebulous->cleanup; Index: trunk/Nebulous-Server/t/apache_05_server_lock_object.x =================================================================== --- trunk/Nebulous-Server/t/apache_05_server_lock_object.x (revision 4436) +++ trunk/Nebulous-Server/t/apache_05_server_lock_object.x (revision 4440) @@ -11,119 +11,119 @@ use Apache::TestUtil; -use PS::IPP::IData::Util qw( :standard ); +use Nebulous::Util qw( :standard ); use SOAP::Lite; -use Test::IData; +use Test::Nebulous; my $hostport = Apache::Test::config()->{ 'hostport' }; -my $idata = SOAP::Lite->new( - proxy => "http://$hostport/idata", - uri => "http://pan-starrs.ifa.hawaii.edu/PS/IPP/IData/Server", +my $neb = SOAP::Lite->new( + proxy => "http://$hostport/nebulous", + uri => "http://pan-starrs.ifa.hawaii.edu/PS/IPP/Nebulous/Server", ); -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - ok( $idata->lock_object( "foo", "read" )->result, "read lock" ); + ok( $neb->lock_object( "foo", "read" )->result, "read lock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - ok( $idata->lock_object( "foo", "read" )->result, "read lock" ); - ok( $idata->lock_object( "foo", "read" )->result, "read lock" ); + ok( $neb->lock_object( "foo", "read" )->result, "read lock" ); + ok( $neb->lock_object( "foo", "read" )->result, "read lock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - ok( $idata->lock_object( "foo", "write" )->result, "write lock" ); + ok( $neb->lock_object( "foo", "write" )->result, "write lock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $result = $idata->lock_object( "foo", "read" ); + my $result = $neb->lock_object( "foo", "read" ); like( $result->faultstring, qr/storage object does not exist/, "storage object does not exist" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $result = $idata->lock_object( "foo", "write" ); + my $result = $neb->lock_object( "foo", "write" ); like( $result->faultstring, qr/storage object does not exist/, "storage object does not exist" ); } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->lock_object( "foo", "write" ); - my $result = $idata->lock_object( "foo", "write" ); + $neb->lock_object( "foo", "write" ); + my $result = $neb->lock_object( "foo", "write" ); like( $result->faultstring, qr/can not write lock twice/, "can not write lock twice" ); } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->lock_object( "foo", "read" ); - my $result = $idata->lock_object( "foo", "write" ); + $neb->lock_object( "foo", "read" ); + my $result = $neb->lock_object( "foo", "write" ); like( $result->faultstring, qr/can not write lock after read lock/, "can not write lock after read lock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - $idata->create_object( "foo" ); + $neb->create_object( "foo" ); - $idata->lock_object( "foo", "write" ); - my $result = $idata->lock_object( "foo", "read" ); + $neb->lock_object( "foo", "write" ); + my $result = $neb->lock_object( "foo", "read" ); like( $result->faultstring, qr/can not read lock after write lock/, "can not read lock after write lock" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $result = $idata->lock_object(); + my $result = $neb->lock_object(); like( $result->faultstring, qr/2 were expected/, "no params" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $result = $idata->lock_object( "foo" ); + my $result = $neb->lock_object( "foo" ); like( $result->faultstring, qr/2 were expected/, "not enough params" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $result = $idata->lock_object( "foo", "both" ); + my $result = $neb->lock_object( "foo", "both" ); like( $result->faultstring, qr/is read or write/, "not read or write" ); } -Test::IData->setup; +Test::Nebulous->setup; { - my $result = $idata->lock_object( "foo", 'read', 3 ); + my $result = $neb->lock_object( "foo", 'read', 3 ); like( $result->faultstring, qr/2 were expected/, "too many params" ); } -Test::IData->cleanup; +Test::Nebulous->cleanup;