Changeset 12640
- Timestamp:
- Mar 28, 2007, 11:32:54 AM (19 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
-
Nebulous-Server/t/05_server_lock_object.t (modified) (6 diffs)
-
Nebulous/t/05_server_lock_object.t (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/05_server_lock_object.t
r10546 r12640 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 05_server_lock_object.t,v 1. 6 2006-12-08 03:29:19jhoblitt Exp $5 # $Id: 05_server_lock_object.t,v 1.7 2007-03-28 21:32:54 jhoblitt Exp $ 6 6 7 7 use strict; … … 25 25 26 26 { 27 $neb->create_object( "foo");27 $neb->create_object("foo"); 28 28 29 ok( $neb->lock_object( "foo", "read" ), "read lock");29 ok($neb->lock_object("foo", "read"), "read lock"); 30 30 } 31 31 … … 33 33 34 34 { 35 $neb->create_object( "foo");35 $neb->create_object("foo"); 36 36 37 ok( $neb->lock_object( "foo", "read" ), "read lock");38 ok( $neb->lock_object( "foo", "read" ), "read lock");37 ok($neb->lock_object("foo", "read"), "read lock"); 38 ok($neb->lock_object("foo", "read"), "read lock"); 39 39 } 40 40 … … 42 42 43 43 { 44 $neb->create_object( "foo");44 $neb->create_object("foo"); 45 45 46 ok( $neb->lock_object( "foo", "write" ), "write lock");46 ok($neb->lock_object("foo", "write"), "write lock"); 47 47 } 48 48 … … 50 50 51 51 eval { 52 $neb->lock_object( "foo", "read");52 $neb->lock_object("foo", "read"); 53 53 }; 54 like( $@, qr/storage object does not exist/, "storage object does not exist");54 like($@, qr/storage object does not exist/, "storage object does not exist"); 55 55 56 56 Test::Nebulous->setup; 57 57 58 58 eval { 59 $neb->lock_object( "foo", "write");59 $neb->lock_object("foo", "write"); 60 60 }; 61 like( $@, qr/storage object does not exist/, "storage object does not exist");61 like($@, qr/storage object does not exist/, "storage object does not exist"); 62 62 63 63 Test::Nebulous->setup; 64 64 65 65 eval { 66 $neb->create_object( "foo");66 $neb->create_object("foo"); 67 67 68 $neb->lock_object( "foo", "write");69 $neb->lock_object( "foo", "write");68 $neb->lock_object("foo", "write"); 69 $neb->lock_object("foo", "write"); 70 70 }; 71 like( $@, qr/can not write lock twice/, "can not write lock twice");71 like($@, qr/can not write lock twice/, "can not write lock twice"); 72 72 73 73 Test::Nebulous->setup; 74 74 75 75 eval { 76 $neb->create_object( "foo");76 $neb->create_object("foo"); 77 77 78 $neb->lock_object( "foo", "read");79 $neb->lock_object( "foo", "write");78 $neb->lock_object("foo", "read"); 79 $neb->lock_object("foo", "write"); 80 80 }; 81 like( $@, qr/can not write lock after read lock/, "can not write lock after read lock");81 like($@, qr/can not write lock after read lock/, "can not write lock after read lock"); 82 82 83 83 Test::Nebulous->setup; 84 84 85 85 eval { 86 $neb->create_object( "foo");86 $neb->create_object("foo"); 87 87 88 $neb->lock_object( "foo", "write");89 $neb->lock_object( "foo", "read");88 $neb->lock_object("foo", "write"); 89 $neb->lock_object("foo", "read"); 90 90 }; 91 like( $@, qr/can not read lock after write lock/, "can not read lock after write lock");91 like($@, qr/can not read lock after write lock/, "can not read lock after write lock"); 92 92 93 93 Test::Nebulous->setup; … … 96 96 $neb->lock_object(); 97 97 }; 98 like( $@, qr/2 were expected/, "no params");98 like($@, qr/2 were expected/, "no params"); 99 99 100 100 Test::Nebulous->setup; 101 101 102 102 eval { 103 $neb->lock_object( "foo");103 $neb->lock_object("foo"); 104 104 }; 105 like( $@, qr/2 were expected/, "not enough params");105 like($@, qr/2 were expected/, "not enough params"); 106 106 107 107 Test::Nebulous->setup; 108 108 109 109 eval { 110 $neb->lock_object( "foo", "both");110 $neb->lock_object("foo", "both"); 111 111 }; 112 like( $@, qr/is read or write/, "not read or write");112 like($@, qr/is read or write/, "not read or write"); 113 113 114 114 Test::Nebulous->setup; 115 115 116 116 eval { 117 $neb->lock_object( "foo", 'read', 3);117 $neb->lock_object("foo", 'read', 3); 118 118 }; 119 like( $@, qr/2 were expected/, "too many params");119 like($@, qr/2 were expected/, "too many params"); 120 120 121 121 Test::Nebulous->cleanup; -
trunk/Nebulous/t/05_server_lock_object.t
r10546 r12640 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 05_server_lock_object.t,v 1. 6 2006-12-08 03:29:19jhoblitt Exp $5 # $Id: 05_server_lock_object.t,v 1.7 2007-03-28 21:32:54 jhoblitt Exp $ 6 6 7 7 use strict; … … 25 25 26 26 { 27 $neb->create_object( "foo");27 $neb->create_object("foo"); 28 28 29 ok( $neb->lock_object( "foo", "read" ), "read lock");29 ok($neb->lock_object("foo", "read"), "read lock"); 30 30 } 31 31 … … 33 33 34 34 { 35 $neb->create_object( "foo");35 $neb->create_object("foo"); 36 36 37 ok( $neb->lock_object( "foo", "read" ), "read lock");38 ok( $neb->lock_object( "foo", "read" ), "read lock");37 ok($neb->lock_object("foo", "read"), "read lock"); 38 ok($neb->lock_object("foo", "read"), "read lock"); 39 39 } 40 40 … … 42 42 43 43 { 44 $neb->create_object( "foo");44 $neb->create_object("foo"); 45 45 46 ok( $neb->lock_object( "foo", "write" ), "write lock");46 ok($neb->lock_object("foo", "write"), "write lock"); 47 47 } 48 48 … … 50 50 51 51 eval { 52 $neb->lock_object( "foo", "read");52 $neb->lock_object("foo", "read"); 53 53 }; 54 like( $@, qr/storage object does not exist/, "storage object does not exist");54 like($@, qr/storage object does not exist/, "storage object does not exist"); 55 55 56 56 Test::Nebulous->setup; 57 57 58 58 eval { 59 $neb->lock_object( "foo", "write");59 $neb->lock_object("foo", "write"); 60 60 }; 61 like( $@, qr/storage object does not exist/, "storage object does not exist");61 like($@, qr/storage object does not exist/, "storage object does not exist"); 62 62 63 63 Test::Nebulous->setup; 64 64 65 65 eval { 66 $neb->create_object( "foo");66 $neb->create_object("foo"); 67 67 68 $neb->lock_object( "foo", "write");69 $neb->lock_object( "foo", "write");68 $neb->lock_object("foo", "write"); 69 $neb->lock_object("foo", "write"); 70 70 }; 71 like( $@, qr/can not write lock twice/, "can not write lock twice");71 like($@, qr/can not write lock twice/, "can not write lock twice"); 72 72 73 73 Test::Nebulous->setup; 74 74 75 75 eval { 76 $neb->create_object( "foo");76 $neb->create_object("foo"); 77 77 78 $neb->lock_object( "foo", "read");79 $neb->lock_object( "foo", "write");78 $neb->lock_object("foo", "read"); 79 $neb->lock_object("foo", "write"); 80 80 }; 81 like( $@, qr/can not write lock after read lock/, "can not write lock after read lock");81 like($@, qr/can not write lock after read lock/, "can not write lock after read lock"); 82 82 83 83 Test::Nebulous->setup; 84 84 85 85 eval { 86 $neb->create_object( "foo");86 $neb->create_object("foo"); 87 87 88 $neb->lock_object( "foo", "write");89 $neb->lock_object( "foo", "read");88 $neb->lock_object("foo", "write"); 89 $neb->lock_object("foo", "read"); 90 90 }; 91 like( $@, qr/can not read lock after write lock/, "can not read lock after write lock");91 like($@, qr/can not read lock after write lock/, "can not read lock after write lock"); 92 92 93 93 Test::Nebulous->setup; … … 96 96 $neb->lock_object(); 97 97 }; 98 like( $@, qr/2 were expected/, "no params");98 like($@, qr/2 were expected/, "no params"); 99 99 100 100 Test::Nebulous->setup; 101 101 102 102 eval { 103 $neb->lock_object( "foo");103 $neb->lock_object("foo"); 104 104 }; 105 like( $@, qr/2 were expected/, "not enough params");105 like($@, qr/2 were expected/, "not enough params"); 106 106 107 107 Test::Nebulous->setup; 108 108 109 109 eval { 110 $neb->lock_object( "foo", "both");110 $neb->lock_object("foo", "both"); 111 111 }; 112 like( $@, qr/is read or write/, "not read or write");112 like($@, qr/is read or write/, "not read or write"); 113 113 114 114 Test::Nebulous->setup; 115 115 116 116 eval { 117 $neb->lock_object( "foo", 'read', 3);117 $neb->lock_object("foo", 'read', 3); 118 118 }; 119 like( $@, qr/2 were expected/, "too many params");119 like($@, qr/2 were expected/, "too many params"); 120 120 121 121 Test::Nebulous->cleanup;
Note:
See TracChangeset
for help on using the changeset viewer.
