blob: c8fc35169507b72bab15da8e6014db6c6fd3437b (
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
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2004-2009 Oracle. All rights reserved.
#
# $Id$
#
# Rep035 script - continually calls lock_detect, txn_checkpoint,
# or mpool_trickle.
#
# Usage: repscript clientdir apicall
# clientdir: client env directory
# apicall: detect, checkpoint, or trickle.
source ./include.tcl
source $test_path/test.tcl
source $test_path/testutils.tcl
source $test_path/reputils.tcl
set usage "repscript clientdir apicall"
# Verify usage
if { $argc != 2 } {
puts stderr "FAIL:[timestamp] Usage: $usage"
exit
}
# Initialize arguments
set clientdir [ lindex $argv 0 ]
set apicall [ lindex $argv 1 ]
# Join the queue env. We assume the rep test convention of
# placing the messages in $testdir/MSGQUEUEDIR.
set queueenv [eval berkdb_env -home $testdir/MSGQUEUEDIR]
error_check_good script_qenv_open [is_valid_env $queueenv] TRUE
# Join the client env.
repladd 3
set envid 3
set cl2_cmd "berkdb_env_noerr -home $clientdir \
-errfile /dev/stderr -errpfx CLIENT.$apicall \
-txn -rep_client -rep_transport \[list $envid replsend\]"
# set cl2_cmd "berkdb_env_noerr -home $clientdir \
# -errfile /dev/stderr -errpfx CLIENT.$apicall \
# -verbose {rep on} \
# -txn -rep_client -rep_transport \[list $envid replsend\]"
set clientenv [eval $cl2_cmd]
error_check_good script_c2env_open [is_valid_env $clientenv] TRUE
# Run chosen call continuously until the parent script creates
# a marker file to indicate completion.
switch -exact -- $apicall {
archive {
while { [file exists $testdir/marker.db] == 0 } {
$clientenv log_archive -arch_remove
# tclsleep 1
}
}
detect {
while { [file exists $testdir/marker.db] == 0 } {
$clientenv lock_detect default
# tclsleep 1
}
}
checkpoint {
while { [file exists $testdir/marker.db] == 0 } {
$clientenv txn_checkpoint -force
tclsleep 1
}
}
trickle {
while { [file exists $testdir/marker.db] == 0 } {
$clientenv mpool_trickle 90
# tclsleep 1
}
}
default {
puts "FAIL: unrecognized API call $apicall
}
}
error_check_good clientenv_close [$clientenv close] 0
|
