diff options
| author | Anas Nashif <anas.nashif@intel.com> | 2012-10-30 16:00:08 -0700 |
|---|---|---|
| committer | Anas Nashif <anas.nashif@intel.com> | 2012-10-30 16:00:08 -0700 |
| commit | 7edf6e8ac0df452d4af7a15da08609821b0b3c0f (patch) | |
| tree | 1cf0f01d9b6574972173e3cd40b62e4ebeaaaaae /test/lock004.tcl | |
| download | db4-7edf6e8ac0df452d4af7a15da08609821b0b3c0f.tar.gz db4-7edf6e8ac0df452d4af7a15da08609821b0b3c0f.tar.bz2 db4-7edf6e8ac0df452d4af7a15da08609821b0b3c0f.zip | |
Imported Upstream version 4.8.30.NCupstream/4.8.30.NC
Diffstat (limited to 'test/lock004.tcl')
| -rw-r--r-- | test/lock004.tcl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/test/lock004.tcl b/test/lock004.tcl new file mode 100644 index 00000000..793c141d --- /dev/null +++ b/test/lock004.tcl @@ -0,0 +1,28 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1996-2009 Oracle. All rights reserved. +# +# $Id$ +# +# TEST lock004 +# TEST Test locker ids wraping around. + +proc lock004 {} { + source ./include.tcl + global lock_curid + global lock_maxid + + set save_curid $lock_curid + set save_maxid $lock_maxid + + set lock_curid [expr $lock_maxid - 1] + puts "Lock004: Locker id wraparound test" + puts "\tLock004.a: repeat lock001-lock003 with wraparound lockids" + + lock001 + lock002 + lock003 + + set lock_curid $save_curid + set lock_maxid $save_maxid +} |