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