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