1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1996,2008 Oracle. All rights reserved. 4# 5# $Id: txn005.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST txn005 8# TEST Test transaction ID wraparound and recovery. 9proc txn005 {} { 10 source ./include.tcl 11 global txn_curid 12 global txn_maxid 13 14 env_cleanup $testdir 15 puts "Txn005: Test transaction wraparound recovery" 16 17 # Open/create the txn region 18 puts "\tTxn005.a: Create environment" 19 set e [berkdb_env -create -txn -home $testdir] 20 error_check_good env_open [is_valid_env $e] TRUE 21 22 set txn1 [$e txn] 23 error_check_good txn1 [is_valid_txn $txn1 $e] TRUE 24 25 set db [berkdb_open -env $e -txn $txn1 -create -btree txn005.db] 26 error_check_good db [is_valid_db $db] TRUE 27 error_check_good txn1_commit [$txn1 commit] 0 28 29 puts "\tTxn005.b: Set txn ids" 30 error_check_good txn_id_set \ 31 [$e txn_id_set [expr $txn_maxid - 1] $txn_maxid] 0 32 33 # txn2 and txn3 will require a wraparound txnid 34 set txn2 [$e txn] 35 error_check_good txn2 [is_valid_txn $txn2 $e] TRUE 36 37 error_check_good put [$db put -txn $txn2 "a" ""] 0 38 error_check_good txn2_commit [$txn2 commit] 0 39 40 error_check_good get_a [$db get "a"] "{a {}}" 41 42 error_check_good close [$db close] 0 43 44 set txn3 [$e txn] 45 error_check_good txn3 [is_valid_txn $txn3 $e] TRUE 46 47 set db [berkdb_open -env $e -txn $txn3 -btree txn005.db] 48 error_check_good db [is_valid_db $db] TRUE 49 50 error_check_good put2 [$db put -txn $txn3 "b" ""] 0 51 error_check_good sync [$db sync] 0 52 error_check_good txn3_abort [$txn3 abort] 0 53 error_check_good dbclose [$db close] 0 54 error_check_good eclose [$e close] 0 55 56 puts "\tTxn005.c: Run recovery" 57 set stat [catch {exec $util_path/db_recover -h $testdir -e -c} result] 58 if { $stat == 1 } { 59 error "FAIL: Recovery error: $result." 60 } 61 62 puts "\tTxn005.d: Check data" 63 set e [berkdb_env -txn -home $testdir] 64 error_check_good env_open [is_valid_env $e] TRUE 65 66 set db [berkdb_open -env $e -auto_commit -btree txn005.db] 67 error_check_good db [is_valid_db $db] TRUE 68 69 error_check_good get_a [$db get "a"] "{a {}}" 70 error_check_bad get_b [$db get "b"] "{b {}}" 71 error_check_good dbclose [$db close] 0 72 error_check_good eclose [$e close] 0 73} 74