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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2004,2007 Oracle. All rights reserved.
#
# $Id: env012.tcl,v 12.17 2007/07/05 18:25:04 carol Exp $
#
# TEST env012
# TEST Test DB_REGISTER.
# TEST
# TEST DB_REGISTER will fail on systems without fcntl. If it
# TEST fails, make sure we got the expected DB_OPNOTSUP return.
# TEST
# TEST Then, the real tests:
# TEST For each test, we start a process that opens an env with -register.
# TEST
# TEST 1. Verify that a 2nd process can enter the existing env with -register.
# TEST
# TEST 2. Kill the 1st process, and verify that the 2nd process can enter
# TEST with "-register -recover".
# TEST
# TEST 3. Kill the 1st process, and verify that the 2nd process cannot
# TEST enter with just "-register".
# TEST
# TEST 4. While the 1st process is still running, a 2nd process enters
# TEST with "-register". Kill the 1st process. Verify that a 3rd process
# TEST can enter with "-register -recover". Verify that the 3rd process,
# TEST entering, causes process 2 to fail with the message DB_RUNRECOVERY.
# TEST
# TEST 5. We had a bug where recovery was always run with -register
# TEST if there were empty slots in the process registry file. Verify
# TEST that recovery doesn't automatically run if there is an empty slot.
proc env012 { } {
source ./include.tcl
set tnum "012"
puts "Env$tnum: Test of DB_REGISTER."
puts "\tEnv$tnum.a: Platforms without fcntl fail with DB_OPNOTSUP."
env_cleanup $testdir
if {[catch {eval {berkdb_env} \
-create -home $testdir -txn -register -recover} env]} {
error_check_good fail_OPNOTSUP [is_substr $env DB_OPNOTSUP] 1
puts "Skipping env$tnum; DB_REGISTER is not supported."
}
error_check_good env_close [$env close] 0
puts "\tEnv$tnum.b: Second process can join with -register."
env_cleanup $testdir
set testfile TESTFILE
set key KEY
set data DATA1
puts "\t\tEnv$tnum.b1: Start process 1."
set p1 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p1 \
$testdir $testfile PUT $key $data RECOVER 10 &]
# Wait a while so process 1 has a chance to get going.
tclsleep 2
puts "\t\tEnv$tnum.b2: Start process 2."
set p2 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p2 \
$testdir $testfile GET $key $data 0 0 &]
watch_procs $p1 1 120
watch_procs $p2 1 120
# Check log files for failures.
logcheck $testdir/env$tnum.log.p1
logcheck $testdir/env$tnum.log.p2
puts "\tEnv$tnum.c: Second process can join with -register\
-recover after first process is killed."
env_cleanup $testdir
puts "\t\tEnv$tnum.c1: Start process 1."
set pids {}
set p1 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p1 \
$testdir $testfile PUT $key $data RECOVER 10 &]
lappend pids $p1
tclsleep 2
puts "\t\tEnv$tnum.c2: Kill process 1."
set pids [findprocessids $testdir $pids]
foreach pid $pids {
tclkill $pid
}
puts "\t\tEnv$tnum.c3: Start process 2."
set p2 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p2 \
$testdir $testfile GET $key $data RECOVER 0 &]
watch_procs $p2 1 120
# Check log files for failures.
logcheck $testdir/env$tnum.log.p1
logcheck $testdir/env$tnum.log.p2
if { $is_windows_test == 1 } {
puts "Skipping sections .d and .e on Windows platform."
} else {
puts "\tEnv$tnum.d: Second process cannot join without -recover\
after first process is killed."
env_cleanup $testdir
puts "\t\tEnv$tnum.d1: Start process 1."
set pids {}
set p1 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p1 \
$testdir $testfile PUT $key $data RECOVER 10 &]
lappend pids $p1
tclsleep 2
puts "\t\tEnv$tnum.d2: Kill process 1."
set pids [findprocessids $testdir $pids]
foreach pid $pids {
tclkill $pid
}
puts "\t\tEnv$tnum.d3: Start process 2."
set p2 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p2 \
$testdir $testfile GET $key $data 0 0 &]
tclsleep 2
watch_procs $p2 1 120
# Check log files. Log p1 should be clean, but we
# expect DB_RUNRECOVERY in log p2.
logcheck $testdir/env$tnum.log.p1
logcheckfails $testdir/env$tnum.log.p2 DB_RUNRECOVERY
puts "\tEnv$tnum.e: Running registered process detects failure."
env_cleanup $testdir
puts "\t\tEnv$tnum.e1: Start process 1."
set pids {}
set p1 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p1 \
$testdir $testfile PUT $key $data RECOVER 10 &]
lappend pids $p1
tclsleep 2
# Identify child process to kill later.
set pids [findprocessids $testdir $pids]
puts "\t\tEnv$tnum.e2: Start process 2."
set p2 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p2 \
$testdir $testfile LOOP $key $data 0 10 &]
puts "\t\tEnv$tnum.e3: Kill process 1."
foreach pid $pids {
tclkill $pid
}
puts "\t\tEnv$tnum.e4: Start process 3."
set p3 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p3 \
$testdir $testfile GET $key $data RECOVER 0 &]
tclsleep 2
watch_procs $p2 1 120
watch_procs $p3 1 120
# Check log files. Logs p1 and p3 should be clean, but we
# expect DB_RUNRECOVERY in log p2.
logcheck $testdir/env$tnum.log.p1
logcheckfails $testdir/env$tnum.log.p2 DB_RUNRECOVERY
logcheck $testdir/env$tnum.log.p3
}
puts "\tEnv$tnum.f: Empty slot shouldn't cause automatic recovery."
# Create 2 empty slots in the registry by letting two processes
# run to completion.
puts "\t\tEnv$tnum.f1: Start process 1."
set p1 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p1 \
$testdir $testfile PUT $key $data RECOVER 1 &]
puts "\t\tEnv$tnum.f2: Start process 2."
set p2 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p2 \
$testdir $testfile GET $key $data 0 1 &]
watch_procs $p1 1 60
watch_procs $p2 1 60
logcheck $testdir/env$tnum.log.p1
logcheck $testdir/env$tnum.log.p2
# Start two more process. Neither should signal a need for recovery.
puts "\t\tEnv$tnum.f3: Start process 3."
set p3 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p3 \
$testdir $testfile GET $key $data RECOVER 10 &]
tclsleep 2
puts "\t\tEnv$tnum.f4: Start process 4."
set p4 [exec $tclsh_path $test_path/wrap.tcl envscript.tcl \
$testdir/env$tnum.log.p4 \
$testdir $testfile PUT $key $data 0 10 &]
watch_procs $p3 1 120
watch_procs $p4 1 120
# Check log files: neither process should have returned DB_RUNRECOVERY.
logcheck $testdir/env$tnum.log.p3
logcheck $testdir/env$tnum.log.p4
}
# Check log file and report failures with FAIL. Use this when
# we don't expect failures.
proc logcheck { logname } {
set errstrings [eval findfail $logname]
foreach errstring $errstrings {
puts "FAIL: error in $logname : $errstring"
}
}
# When we expect a failure, verify we find the one we expect.
proc logcheckfails { logname message } {
set f [open $logname r]
while { [gets $f line] >= 0 } {
if { [is_substr $line $message] == 1 } {
close $f
return 0
}
}
close $f
puts "FAIL: Did not find expected error $message."
}
# The script wrap.tcl creates a parent and a child process. We
# can't see the child pids, so find them by their sentinel files.
# This creates a list where the parent pid is always listed
# before the child pid.
proc findprocessids { testdir plist } {
set beginfiles [glob $testdir/begin.*]
foreach b $beginfiles {
regsub $testdir/begin. $b {} pid
if { [lsearch -exact $plist $pid] == -1 } {
lappend plist $pid
}
}
return $plist
}
|
