Changeset 5497 for trunk/Nebulous-Server

Timestamp:

Nov 10, 2005, 11:30:32 AM (21 years ago)

Author:

jhoblitt

Message:

fix tests to work with Nebulous::Server->create_object() verifying class ids

Location:

trunk/Nebulous-Server/t

Files:

• 03_server_create_object.t (modified) (3 diffs)
• 23_client_stat.t (modified) (3 diffs)

trunk/Nebulous-Server/t/03_server_create_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 03_server_create_object.t,v 1.7 2005-11-09 01:33:09 jhoblitt Exp $
+# $Id: 03_server_create_object.t,v 1.8 2005-11-10 21:30:32 jhoblitt Exp $
 
 use strict;
@@ -85 +85 @@
     $neb->create_object( "foo", 99 );
 };
-like( $@, qr/Invalid class/, "class doesn't exist" );
+like( $@, qr/did not pass the \'is valid class id\'/, "class doesn't exist" );
 
 Test::Nebulous->setup;
@@ -97 +97 @@
 
 eval {
-    $neb->create_object( 1, 2, 3, 4, 5 );
+    $neb->create_object( 1, 1, 1, 1, 1 );
 };
 like( $@, qr/2 - 4 were expected/, "too many params" );

trunk/Nebulous-Server/t/23_client_stat.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 23_client_stat.t,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 23_client_stat.t,v 1.4 2005-11-10 21:30:32 jhoblitt Exp $
 
 use strict;
@@ -39 +39 @@
         proxy => "http://$hostport/nebulous",
     );
-    $neb->create( "foo", 9, "node01", "foobar" );
+    $neb->create( "foo", 0, "node01", "foobar" );
 
     my $info = $neb->stat( "foo" );
@@ -46 +46 @@
     is( @$info[0], 1,                           "so_id" );
     is( @$info[1], "foo",                       "ext_id" );
-    is( @$info[2], 9,                           "class_id" );
+    is( @$info[2], 0,                           "class_id" );
     is( @$info[3], "foobar",                    "comment" );
     is( @$info[4], 0,                           "read lock" );