# See the file LICENSE for redistribution information.
#
# Copyright (c) 1996-2001
#	Sleepycat Software.  All rights reserved.
#
# $Id: lock004.tcl,v 11.3 2001/11/30 21:06:17 margo Exp $
#
# TEST	lock004
# TEST	Test locker ids wraping around.

proc lock004 {} {
	source ./include.tcl
	global lock_curid
	global lock_maxid

	puts "Lock004.a -- locker id wrapping"
	locktest -S [expr $lock_maxid - 1] $lock_maxid
}
