mirror of
https://github.com/berkeleydb/libdb.git
synced 2024-09-28 11:36:55 +00:00
81 lines
2.1 KiB
Tcl
81 lines
2.1 KiB
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 2003, 2012 Oracle and/or its affiliates. All rights reserved.
|
|
#
|
|
# $Id$
|
|
#
|
|
# Fop006 script - test of fileops in multiple transactions
|
|
# Usage: fopscript
|
|
# omethod: access method for database
|
|
# op: file operation to perform
|
|
# end: how to end the transaction (abort or commit)
|
|
# result: expected result of the transaction
|
|
# names: name(s) of files to operate on
|
|
# childtxn: do we use child txns in this test?
|
|
# args: additional args to do_op
|
|
|
|
source ./include.tcl
|
|
source $test_path/test.tcl
|
|
source $test_path/testutils.tcl
|
|
|
|
set usage "fopscript operator omethod op end result names childtxn args"
|
|
|
|
# Verify usage
|
|
if { $argc < 7 } {
|
|
puts stderr "FAIL:[timestamp] Usage: $usage"
|
|
exit
|
|
}
|
|
|
|
# Initialize arguments
|
|
set operator [ lindex $argv 0 ]
|
|
set omethod [ lindex $argv 1 ]
|
|
set op [ lindex $argv 2 ]
|
|
set end [ lindex $argv 3 ]
|
|
set result [ lindex $argv 4 ]
|
|
set names [ lindex $argv 5 ]
|
|
set childtxn [ lindex $argv 6 ]
|
|
set args [lindex [lrange $argv 7 end] 0]
|
|
|
|
# Join the env
|
|
set dbenv [eval berkdb_env -home $testdir]
|
|
error_check_good envopen [is_valid_env $dbenv] TRUE
|
|
|
|
# Start transaction
|
|
puts "\tFopscript.a: begin 2nd transaction (will block)"
|
|
set parent2 [$dbenv txn]
|
|
if { $childtxn } {
|
|
set child2 [$dbenv txn -parent $parent2]
|
|
set txn2 $child2
|
|
} else {
|
|
set txn2 $parent2
|
|
}
|
|
error_check_good txn2_begin [is_valid_txn $txn2 $dbenv] TRUE
|
|
|
|
# Execute op2
|
|
set op2result [$operator $omethod $op $names $txn2 $dbenv $args]
|
|
|
|
# End txn2
|
|
error_check_good txn2_end [$txn2 $end] 0
|
|
if { $childtxn } {
|
|
error_check_good parent2_commit [$parent2 commit] 0
|
|
}
|
|
if {$result == 0} {
|
|
error_check_good op2_should_succeed $op2result $result
|
|
} else {
|
|
set error [extract_error $op2result]
|
|
error_check_good op2_wrong_failure $error $result
|
|
}
|
|
|
|
# Close any open db handles. We had to wait until now
|
|
# because you can't close a database inside a transaction.
|
|
set handles [berkdb handles]
|
|
foreach handle $handles {
|
|
if {[string range $handle 0 1] == "db" } {
|
|
error_check_good db_close [$handle close] 0
|
|
}
|
|
}
|
|
|
|
# Close the env
|
|
error_check_good dbenv_close [$dbenv close] 0
|
|
puts "\tFopscript completed successfully"
|
|
|