Changeset 13203 for trunk/Nebulous-Server/t/06_server_unlock_object.t

Timestamp:

May 3, 2007, 12:10:14 PM (19 years ago)

Author:

jhoblitt

Message:

valid that $key arguments are valid

File:

• trunk/Nebulous-Server/t/06_server_unlock_object.t (modified) (6 diffs)

trunk/Nebulous-Server/t/06_server_unlock_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 06_server_unlock_object.t,v 1.7 2007-03-28 21:41:11 jhoblitt Exp $
+# $Id: 06_server_unlock_object.t,v 1.8 2007-05-03 22:10:14 jhoblitt Exp $
 
 use strict;
@@ -59 +59 @@
     $neb->unlock_object("foo", "read");
 };
-like($@, qr/storage object does not exist/, "storage object does not exist");
+like($@, qr/is valid object key/, "storage object does not exist");
 
 Test::Nebulous->setup;
@@ -66 +66 @@
     $neb->unlock_object("foo", "write");
 };
-like($@, qr/storage object does not exist/, "storage object does not exist");
+like($@, qr/is valid object key/, "storage object does not exist");
 
 Test::Nebulous->setup;
@@ -116 +116 @@
 
 eval {
+    $neb->create_object("foo");
+
     $neb->unlock_object("foo");
 };
@@ -123 +125 @@
 
 eval {
+    $neb->create_object("foo");
+
     $neb->unlock_object("foo", "both");
 };
@@ -130 +134 @@
 
 eval {
+    $neb->create_object("foo");
+
     $neb->unlock_object("foo", 'read', 3);
 };