diff options
Diffstat (limited to 'db-4.8.30/test/txn012script.tcl')
-rw-r--r-- | db-4.8.30/test/txn012script.tcl | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/db-4.8.30/test/txn012script.tcl b/db-4.8.30/test/txn012script.tcl new file mode 100644 index 0000000..8c935e4 --- /dev/null +++ b/db-4.8.30/test/txn012script.tcl @@ -0,0 +1,33 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 2005-2009 Oracle. All rights reserved. +# +# $Id$ +# +# Script to check that txn names can be seen across processes. +# Names over 50 characters will be truncated. +# +# Usage: txn012script dir txnname longtxnname + +source ./include.tcl +source $test_path/test.tcl + +set usage "txn012script dir txnname longtxnname" + +# Verify usage +if { $argc != 3 } { + puts stderr "FAIL:[timestamp] Usage: $usage" + exit +} + +# Initialize arguments +set dir [ lindex $argv 0 ] +set txnname [ lindex $argv 1 ] +set longtxnname [ lindex $argv 2 ] + +# Run db_stat to view txn names. +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 |