test/tcl/txn009.tcl

   1 # See the file LICENSE for redistribution information.
   2 #
   3 # Copyright (c) 1996, 2012 Oracle and/or its affiliates.  All rights reserved.
   4 #
   5 # $Id$
   6 #
   7 # TEST  txn009
   8 # TEST  Test of wraparound txnids (txn003)
   9 proc 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