Changeset 4440 for trunk/Nebulous/t/apache_03_server_create_object.x

Timestamp:

Jun 29, 2005, 4:35:06 PM (21 years ago)

Author:

jhoblitt

Message:

rename PS::IPP::IData -> Nebulous

File:

• trunk/Nebulous/t/apache_03_server_create_object.x (modified) (5 diffs)

trunk/Nebulous/t/apache_03_server_create_object.x

@@ -11 +11 @@
 
 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 +32 @@
 }
 
-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 +44 @@
 }
 
-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 +56 @@
 }
 
-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 +68 @@
 }
 
-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;