1# See the file LICENSE for redistribution information.
2#
3# Copyright (c) 1996,2008 Oracle.  All rights reserved.
4#
5# $Id: lock004.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $
6#
7# TEST	lock004
8# TEST	Test locker ids wraping around.
9
10proc lock004 {} {
11	source ./include.tcl
12	global lock_curid
13	global lock_maxid
14
15	set save_curid $lock_curid
16	set save_maxid $lock_maxid
17
18	set lock_curid [expr $lock_maxid - 1]
19	puts "Lock004: Locker id wraparound test"
20	puts "\tLock004.a: repeat lock001-lock003 with wraparound lockids"
21
22	lock001
23	lock002
24	lock003
25
26	set lock_curid $save_curid
27	set lock_maxid $save_maxid
28}
29