1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1996,2008 Oracle. All rights reserved. 4# 5# $Id: txn009.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST txn009 8# TEST Test of wraparound txnids (txn003) 9proc txn009 { } { 10 source ./include.tcl 11 global txn_curid 12 global txn_maxid 13 14 set orig_curid $txn_curid 15 set orig_maxid $txn_maxid 16 puts "\tTxn009.1: wraparound txnids" 17 set txn_curid [expr $txn_maxid - 2] 18 txn003 "009.1" 19 puts "\tTxn009.2: closer wraparound txnids" 20 set txn_curid [expr $txn_maxid - 3] 21 set txn_maxid [expr $txn_maxid - 2] 22 txn003 "009.2" 23 24 puts "\tTxn009.3: test wraparound txnids" 25 txn_idwrap_check $testdir 26 set txn_curid $orig_curid 27 set txn_maxid $orig_maxid 28 return 29} 30 31