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