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