summaryrefslogtreecommitdiff
path: root/test/txn006.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'test/txn006.tcl')
-rw-r--r--test/txn006.tcl45
1 files changed, 0 insertions, 45 deletions
diff --git a/test/txn006.tcl b/test/txn006.tcl
deleted file mode 100644
index 8a70077..0000000
--- a/test/txn006.tcl
+++ /dev/null
@@ -1,45 +0,0 @@
-# See the file LICENSE for redistribution information.
-#
-# Copyright (c) 1996-2009 Oracle. All rights reserved.
-#
-# $Id$
-#
-#TEST txn006
-#TEST Test dump/load in transactional environment.
-proc txn006 { { iter 50 } } {
- source ./include.tcl
- set testfile txn006.db
-
- puts "Txn006: Test dump/load in transaction environment"
- env_cleanup $testdir
-
- puts "\tTxn006.a: Create environment and database"
- # Open/create the txn region
- set e [berkdb_env -create -home $testdir -txn]
- error_check_good env_open [is_valid_env $e] TRUE
-
- # Open/create database
- set db [berkdb_open -auto_commit -env $e \
- -create -btree -dup $testfile]
- error_check_good db_open [is_valid_db $db] TRUE
-
- # Start a transaction
- set txn [$e txn]
- error_check_good txn [is_valid_txn $txn $e] TRUE
-
- puts "\tTxn006.b: Put data"
- # Put some data
- for { set i 1 } { $i < $iter } { incr i } {
- error_check_good put [$db put -txn $txn key$i data$i] 0
- }
-
- # End transaction, close db
- error_check_good txn_commit [$txn commit] 0
- error_check_good db_close [$db close] 0
- error_check_good env_close [$e close] 0
-
- puts "\tTxn006.c: dump/load"
- # Dump and load
- exec $util_path/db_dump -p -h $testdir $testfile | \
- $util_path/db_load -h $testdir $testfile
-}