1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1996,2008 Oracle. All rights reserved. 4# 5# $Id: txn008.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST txn008 8# TEST Test of wraparound txnids (txn002) 9proc txn008 { } { 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 "\tTxn008.1: wraparound txnids" 17 set txn_curid [expr $txn_maxid - 2] 18 txn002 "008.1" 19 puts "\tTxn008.2: closer wraparound txnids" 20 set txn_curid [expr $txn_maxid - 3] 21 set txn_maxid [expr $txn_maxid - 2] 22 txn002 "008.2" 23 24 puts "\tTxn008.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