Changeset 12641 for trunk/Nebulous/t/06_server_unlock_object.t

Timestamp:

Mar 28, 2007, 11:41:11 AM (19 years ago)

Author:

jhoblitt

Message:

ws

File:

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

trunk/Nebulous/t/06_server_unlock_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 06_server_unlock_object.t,v 1.6 2006-12-08 03:29:19 jhoblitt Exp $
+# $Id: 06_server_unlock_object.t,v 1.7 2007-03-28 21:41:11 jhoblitt Exp $
 
 use strict;
@@ -25 +25 @@
 
 {
-    $neb->create_object( "foo" );
+    $neb->create_object("foo");
 
-    $neb->lock_object( "foo", "read" );
+    $neb->lock_object("foo", "read");
 
-    ok( $neb->unlock_object( "foo", "read" ), "read unlock" );
+    ok($neb->unlock_object("foo", "read"), "read unlock");
 }
 
@@ -35 +35 @@
 
 {
-    $neb->create_object( "foo" );
+    $neb->create_object("foo");
 
-    $neb->lock_object( "foo", "read" );
-    $neb->lock_object( "foo", "read" );
+    $neb->lock_object("foo", "read");
+    $neb->lock_object("foo", "read");
 
-    ok( $neb->unlock_object( "foo", "read" ), "read unlock" );
-    ok( $neb->unlock_object( "foo", "read" ), "read unlock" );
+    ok($neb->unlock_object("foo", "read"), "read unlock");
+    ok($neb->unlock_object("foo", "read"), "read unlock");
 }
 
@@ -47 +47 @@
 
 {
-    $neb->create_object( "foo" );
+    $neb->create_object("foo");
 
-    $neb->lock_object( "foo", "write" );
+    $neb->lock_object("foo", "write");
 
-    ok( $neb->unlock_object( "foo", "write" ), "write unlock" );
+    ok($neb->unlock_object("foo", "write"), "write unlock");
 }
 
@@ -57 +57 @@
 
 eval {
-    $neb->unlock_object( "foo", "read" );
+    $neb->unlock_object("foo", "read");
 };
-like( $@, qr/storage object does not exist/, "storage object does not exist" );
+like($@, qr/storage object does not exist/, "storage object does not exist");
 
 Test::Nebulous->setup;
 
 eval {
-    $neb->unlock_object( "foo", "write" );
+    $neb->unlock_object("foo", "write");
 };
-like( $@, qr/storage object does not exist/, "storage object does not exist" );
+like($@, qr/storage object does not exist/, "storage object does not exist");
 
 Test::Nebulous->setup;
 
 eval {
-    $neb->create_object( "foo" );
+    $neb->create_object("foo");
 
-    $neb->unlock_object( "foo", "read" );
+    $neb->unlock_object("foo", "read");
 };
-like( $@, qr/can not remove non-existant read lock/, "no lock set" );
+like($@, qr/can not remove non-existant read lock/, "no lock set");
 
 Test::Nebulous->setup;
 
 eval {
-    $neb->create_object( "foo" );
+    $neb->create_object("foo");
 
-    $neb->unlock_object( "foo", "write" );
+    $neb->unlock_object("foo", "write");
 };
-like( $@, qr/can not remove non-existant write lock/, "no lock set" );
+like($@, qr/can not remove non-existant write lock/, "no lock set");
 
 Test::Nebulous->setup;
 
 eval {
-    $neb->create_object( "foo" );
-    $neb->lock_object( "foo", "write" );
+    $neb->create_object("foo");
+    $neb->lock_object("foo", "write");
 
-    $neb->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" );
+like($@, qr/can not have a read lock under a write lock/, "read unlock under write lock");
 
 Test::Nebulous->setup;
 
 eval {
-    $neb->create_object( "foo" );
-    $neb->lock_object( "foo", "read" );
+    $neb->create_object("foo");
+    $neb->lock_object("foo", "read");
 
-    $neb->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" );
+like($@, qr/can not have a write lock under a read lock/, "write unlock under read lock");
 
 Test::Nebulous->setup;
@@ -111 +111 @@
     $neb->unlock_object();
 };
-like( $@, qr/2 were expected/, "no params" );
+like($@, qr/2 were expected/, "no params");
 
 Test::Nebulous->setup;
 
 eval {
-    $neb->unlock_object( "foo" );
+    $neb->unlock_object("foo");
 };
-like( $@, qr/2 were expected/, "not enough params" );
+like($@, qr/2 were expected/, "not enough params");
 
 Test::Nebulous->setup;
 
 eval {
-    $neb->unlock_object( "foo", "both" );
+    $neb->unlock_object("foo", "both");
 };
-like( $@, qr/is read or write/, "not read or write" );
+like($@, qr/is read or write/, "not read or write");
 
 Test::Nebulous->setup;
 
 eval {
-    $neb->unlock_object( "foo", 'read', 3 );
+    $neb->unlock_object("foo", 'read', 3);
 };
-like( $@, qr/2 were expected/, "too many params" );
+like($@, qr/2 were expected/, "too many params");
 
 Test::Nebulous->cleanup;