Changeset 4440 for trunk/Nebulous/t/04_server_replicate_object.t
- Timestamp:
- Jun 29, 2005, 4:35:06 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous/t/04_server_replicate_object.t (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous/t/04_server_replicate_object.t
r2872 r4440 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 04_server_replicate_object.t,v 1. 3 2005-01-03 23:55:29jhoblitt Exp $5 # $Id: 04_server_replicate_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $ 6 6 7 7 use strict; … … 12 12 use lib qw( ./t ./lib ); 13 13 14 use PS::IPP::IData::Server;15 use PS::IPP::IData::Util qw( :standard );16 use Test:: IData;14 use Nebulous::Server; 15 use Nebulous::Util qw( :standard ); 16 use Test::Nebulous; 17 17 18 my $ idata = "PS::IPP::IData::Server";18 my $neb = "Nebulous::Server"; 19 19 20 $ idata->setup(20 $neb->setup( 21 21 "DBI:mysql:database=test:host=localhost", 22 22 "test", … … 24 24 ); 25 25 26 Test:: IData->setup;26 Test::Nebulous->setup; 27 27 28 28 { 29 29 # key 30 $ idata->create_object( "foo" );31 my $uri = $ idata->replicate_object( "foo" );30 $neb->create_object( "foo" ); 31 my $uri = $neb->replicate_object( "foo" ); 32 32 33 33 ok( -e _get_file_path( $uri ), "file exists" ); … … 35 35 } 36 36 37 Test:: IData->setup;37 Test::Nebulous->setup; 38 38 39 39 { 40 40 # key, $volume 41 $ idata->create_object( "foo" );42 my $uri = $ idata->replicate_object( "foo", "node01" );41 $neb->create_object( "foo" ); 42 my $uri = $neb->replicate_object( "foo", "node01" ); 43 43 44 44 ok( -e _get_file_path( $uri ), "file exists" ); … … 46 46 } 47 47 48 Test:: IData->setup;48 Test::Nebulous->setup; 49 49 50 50 { 51 51 # key, $volume 52 $ idata->create_object( "foo" );53 my $uri1 = $ idata->replicate_object( "foo", "node01" );54 my $uri2 = $ idata->replicate_object( "foo", "node02" );52 $neb->create_object( "foo" ); 53 my $uri1 = $neb->replicate_object( "foo", "node01" ); 54 my $uri2 = $neb->replicate_object( "foo", "node02" ); 55 55 56 56 ok( -e _get_file_path( $uri1 ), "file exists" ); … … 60 60 } 61 61 62 Test:: IData->setup;62 Test::Nebulous->setup; 63 63 64 64 eval { 65 $ idata->replicate_object( "foo" );65 $neb->replicate_object( "foo" ); 66 66 }; 67 67 like( $@, qr/storage object does not exist/, "storage object does not exist" ); 68 68 69 Test:: IData->setup;69 Test::Nebulous->setup; 70 70 71 71 eval { 72 $ idata->replicate_object();72 $neb->replicate_object(); 73 73 }; 74 74 like( $@, qr/1 - 2 were expected/, "no params" ); 75 75 76 Test:: IData->setup;76 Test::Nebulous->setup; 77 77 78 78 eval { 79 $ idata->replicate_object( 1, 2, 3 );79 $neb->replicate_object( 1, 2, 3 ); 80 80 }; 81 81 like( $@, qr/1 - 2 were expected/, "too many params" ); 82 82 83 Test:: IData->cleanup;83 Test::Nebulous->cleanup;
Note:
See TracChangeset
for help on using the changeset viewer.
