summaryrefslogtreecommitdiff
path: root/bdb/test/dead002.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'bdb/test/dead002.tcl')
-rw-r--r--bdb/test/dead002.tcl75
1 files changed, 0 insertions, 75 deletions
diff --git a/bdb/test/dead002.tcl b/bdb/test/dead002.tcl
deleted file mode 100644
index bc19e7127e5..00000000000
--- a/bdb/test/dead002.tcl
+++ /dev/null
@@ -1,75 +0,0 @@
-# See the file LICENSE for redistribution information.
-#
-# Copyright (c) 1996-2002
-# Sleepycat Software. All rights reserved.
-#
-# $Id: dead002.tcl,v 11.23 2002/09/05 17:23:05 sandstro Exp $
-#
-# TEST dead002
-# TEST Same test as dead001, but use "detect on every collision" instead
-# TEST of separate deadlock detector.
-proc dead002 { { procs "2 4 10" } {tests "ring clump" } \
- {timeout 0} {tnum 002} } {
- source ./include.tcl
-
- puts "Dead$tnum: Deadlock detector tests"
-
- env_cleanup $testdir
-
- # Create the environment.
- puts "\tDead$tnum.a: creating environment"
- set lmode "default"
- if { $timeout != 0 } {
- set lmode "expire"
- }
- set env [berkdb_env \
- -create -mode 0644 -home $testdir \
- -lock -txn_timeout $timeout -lock_detect $lmode]
- error_check_good lock_env:open [is_valid_env $env] TRUE
-
- foreach t $tests {
- foreach n $procs {
- set pidlist ""
- sentinel_init
-
- # Fire off the tests
- puts "\tDead$tnum: $n procs of test $t"
- for { set i 0 } { $i < $n } { incr i } {
- set locker [$env lock_id]
- puts "$tclsh_path $test_path/wrap.tcl \
- $testdir/dead$tnum.log.$i \
- ddscript.tcl $testdir $t $locker $i $n"
- set p [exec $tclsh_path \
- $test_path/wrap.tcl \
- ddscript.tcl $testdir/dead$tnum.log.$i \
- $testdir $t $locker $i $n &]
- lappend pidlist $p
- }
- watch_procs $pidlist 5
-
- # Now check output
- set dead 0
- set clean 0
- set other 0
- for { set i 0 } { $i < $n } { incr i } {
- set did [open $testdir/dead$tnum.log.$i]
- while { [gets $did val] != -1 } {
- switch $val {
- DEADLOCK { incr dead }
- 1 { incr clean }
- default { incr other }
- }
- }
- close $did
- }
- dead_check $t $n $timeout $dead $clean $other
- }
- }
-
- fileremove -f $testdir/dd.out
- # Remove log files
- for { set i 0 } { $i < $n } { incr i } {
- fileremove -f $testdir/dead$tnum.log.$i
- }
- error_check_good lock_env:close [$env close] 0
-}