Lines Matching refs:locker
12 # TEST 2. Release with put_obj (all locks for a given locker/obj).
13 # TEST 3. Release with put_all (all locks for a given locker).
35 set locker [$env lock_id]
42 set lockp [$env lock_vec $locker "get $obj $m"]
46 [$env lock_vec $locker "put $lockp"] 0
50 # Get a bunch of locks for the same locker; these should work
52 puts "\tLock006.b: Get many locks for 1 locker,\
55 set lockp [$env lock_vec $locker "get $obj $m"]
60 error_check_good release [$env lock_vec $locker put_all] 0
63 puts "\tLock006.c: Get many locks for 1 locker,\
66 set lockp [$env lock_vec $locker "get $obj $m"]
70 error_check_good release [$env lock_vec $locker "put_obj $obj"] 0
74 # Get many locks for the same locker on more than one object.
77 puts "\tLock006.d: Get many locks on 2 objects for 1 locker,\
80 set lockp [$env lock_vec $locker "get $obj $m"]
85 set lockp [$env lock_vec $locker "get $obj2 $m"]
89 error_check_good release [$env lock_vec $locker put_all] 0
96 set lockp [$env lock_vec -nowait $locker "get $obj write"]
100 error_check_good put_all [$env lock_vec $locker put_all] 0
110 set lockp [$env lock_vec $locker "get OBJ0 $m"]
115 set lockv [$env lock_vec $locker \
118 # Make sure another locker can get an exclusive
125 # Make sure another locker can't get an exclusive
138 error_check_good lock_put [$env lock_vec $locker "put $lockp"] 0
145 set lockp [$env lock_vec $locker "get $obj $m"]
150 # Change the locker
153 puts "\tLock006.g: Change the locker, try to acquire read and write."
160 error_check_good put_all [$env lock_vec $locker {put_all}] 0
161 error_check_good free_id [$env lock_id_free $locker] 0