diff options
| author | Zhang Qiang <qiang.z.zhang@intel.com> | 2012-05-29 11:25:24 +0800 |
|---|---|---|
| committer | Zhang Qiang <qiang.z.zhang@intel.com> | 2012-05-29 11:25:24 +0800 |
| commit | e776056ea09ba0b6d9505ced6913c9190a12d632 (patch) | |
| tree | 092838f2a86042abc586aa5576e36ae6cb47e256 /test/ddscript.tcl | |
| parent | 2e082c838d2ca750f5daac6dcdabecc22dfd4e46 (diff) | |
| download | db4-e776056ea09ba0b6d9505ced6913c9190a12d632.tar.gz db4-e776056ea09ba0b6d9505ced6913c9190a12d632.tar.bz2 db4-e776056ea09ba0b6d9505ced6913c9190a12d632.zip | |
updated with Tizen:Base source codes
Diffstat (limited to 'test/ddscript.tcl')
| -rw-r--r-- | test/ddscript.tcl | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/test/ddscript.tcl b/test/ddscript.tcl deleted file mode 100644 index d154bd6..0000000 --- a/test/ddscript.tcl +++ /dev/null @@ -1,43 +0,0 @@ -# See the file LICENSE for redistribution information. -# -# Copyright (c) 1996-2009 Oracle. All rights reserved. -# -# $Id$ -# -# Deadlock detector script tester. -# Usage: ddscript dir test lockerid objid numprocs -# dir: DBHOME directory -# test: Which test to run -# lockerid: Lock id for this locker -# objid: Object id to lock. -# numprocs: Total number of processes running - -source ./include.tcl -source $test_path/test.tcl -source $test_path/testutils.tcl - -set usage "ddscript dir test lockerid objid numprocs" - -# Verify usage -if { $argc != 5 } { - puts stderr "FAIL:[timestamp] Usage: $usage" - exit -} - -# Initialize arguments -set dir [lindex $argv 0] -set test [ lindex $argv 1 ] -set lockerid [ lindex $argv 2 ] -set objid [ lindex $argv 3 ] -set numprocs [ lindex $argv 4 ] - -set myenv [berkdb_env -lock -home $dir -create -mode 0644 ] -error_check_bad lock_open $myenv NULL -error_check_good lock_open [is_substr $myenv "env"] 1 - -puts [eval $test $myenv $lockerid $objid $numprocs] - -error_check_good lock_id_free [$myenv lock_id_free $lockerid] 0 -error_check_good envclose [$myenv close] 0 - -exit |