source ./include.tcl
source $test_path/test.tcl
set usage "txn012script dir txnname longtxnname"
if { $argc != 3 } {
puts stderr "FAIL:[timestamp] Usage: $usage"
exit
}
set dir [ lindex $argv 0 ]
set txnname [ lindex $argv 1 ]
set longtxnname [ lindex $argv 2 ]
set stat [exec $util_path/db_stat -h $dir -t]
error_check_good txnname [is_substr $stat $txnname] 1
error_check_good longtxnname [is_substr $stat $longtxnname] 0
set truncname [string range $longtxnname 0 49]
error_check_good truncname [is_substr $stat $truncname] 1