blob: 539b6d0ff66b097e277a51408e931a75234e698a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 1996, 1997, 1998, 1999, 2000
# Sleepycat Software. All rights reserved.
#
# $Id: lock003.tcl,v 11.16 2000/08/25 14:21:51 sue Exp $
#
# Exercise multi-process aspects of lock. Generate a bunch of parallel
# testers that try to randomly obtain locks.
proc lock003 { dir {iter 500} {max 1000} {procs 5} {ldegree 5} {objs 75} \
{reads 65} {wait 1} {conflicts { 3 0 0 0 0 0 1 0 1 1}} {seeds {}} } {
source ./include.tcl
puts "Lock003: Multi-process random lock test"
# Clean up after previous runs
env_cleanup $dir
# Open/create the lock region
set e [berkdb env -create -lock -home $dir]
error_check_good env_open [is_substr $e env] 1
set ret [$e close]
error_check_good env_close $ret 0
# Now spawn off processes
set pidlist {}
for { set i 0 } {$i < $procs} {incr i} {
if { [llength $seeds] == $procs } {
set s [lindex $seeds $i]
}
puts "$tclsh_path\
$test_path/wrap.tcl \
lockscript.tcl $dir/$i.lockout\
$dir $iter $objs $wait $ldegree $reads &"
set p [exec $tclsh_path $test_path/wrap.tcl \
lockscript.tcl $testdir/lock003.$i.out \
$dir $iter $objs $wait $ldegree $reads &]
lappend pidlist $p
}
puts "Lock003: $procs independent processes now running"
watch_procs 30 10800
# Remove log files
for { set i 0 } {$i < $procs} {incr i} {
fileremove -f $dir/$i.lockout
}
}
|
