mirror of
https://github.com/MariaDB/server.git
synced 2025-01-17 20:42:30 +01:00
47 lines
1.3 KiB
Tcl
47 lines
1.3 KiB
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 1996-2002
|
|
# Sleepycat Software. All rights reserved.
|
|
#
|
|
# $Id: txn006.tcl,v 1.5 2002/08/01 19:59:19 sue Exp $
|
|
#
|
|
#
|
|
#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
|
|
}
|