blob: 3478c777232640578783930e6fd2ece68b100941 (
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
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2004-2009 Oracle. All rights reserved.
#
# $Id$
#
# TEST rep041
# TEST Turn replication on and off at run-time.
# TEST
# TEST Start a master with replication OFF (noop transport function).
# TEST Run rep_test to advance log files and archive.
# TEST Start up client; change master to working transport function.
# TEST Now replication is ON.
# TEST Do more ops, make sure client is up to date.
# TEST Close client, turn replication OFF on master, do more ops.
# TEST Repeat from point A.
#
proc rep041 { method { niter 500 } { tnum "041" } args } {
source ./include.tcl
global databases_in_memory
global repfiles_in_memory
if { $is_windows9x_test == 1 } {
puts "Skipping replication test on Win 9x platform."
return
}
# Valid for all access methods.
if { $checking_valid_methods } {
return "ALL"
}
set args [convert_args $method $args]
set saved_args $args
set logsets [create_logsets 2]
# This test needs to set its own pagesize.
set pgindex [lsearch -exact $args "-pagesize"]
if { $pgindex != -1 } {
puts "Rep$tnum: skipping for specific pagesizes"
return
}
# Set up for on-disk or in-memory databases.
set msg "using on-disk databases"
if { $databases_in_memory } {
set msg "using named in-memory databases"
if { [is_queueext $method] } {
puts -nonewline "Skipping rep$tnum for method "
puts "$method with named in-memory databases."
return
}
}
set msg2 "and on-disk replication files"
if { $repfiles_in_memory } {
set msg2 "and in-memory replication files"
}
# Run the body of the test with and without recovery,
# and with and without cleaning. Skip recovery with in-memory
# logging - it doesn't make sense.
foreach r $test_recopts {
foreach l $logsets {
set logindex [lsearch -exact $l "in-memory"]
if { $r == "-recover" && $logindex != -1 } {
puts "Skipping rep$tnum for -recover\
with in-memory logs."
continue
}
set envargs ""
set args $saved_args
puts "Rep$tnum ($method $envargs $r $args):\
Turn replication on and off, $msg $msg2."
puts "Rep$tnum: Master logs are [lindex $l 0]"
puts "Rep$tnum: Client logs are [lindex $l 1]"
rep041_sub $method $niter $tnum $envargs \
$l $r $args
}
}
}
proc rep041_sub { method niter tnum envargs logset recargs largs } {
global testdir
global util_path
global databases_in_memory
global repfiles_in_memory
global rep_verbose
global verbose_type
set verbargs ""
if { $rep_verbose == 1 } {
set verbargs " -verbose {$verbose_type on} "
}
set repmemargs ""
if { $repfiles_in_memory } {
set repmemargs "-rep_inmem_files "
}
env_cleanup $testdir
replsetup $testdir/MSGQUEUEDIR
set masterdir $testdir/MASTERDIR
set clientdir $testdir/CLIENTDIR
file mkdir $masterdir
file mkdir $clientdir
# Log size is small so we quickly create more than one.
# The documentation says that the log file must be at least
# four times the size of the in-memory log buffer.
set pagesize 4096
append largs " -pagesize $pagesize "
set log_max [expr $pagesize * 8]
set m_logtype [lindex $logset 0]
set c_logtype [lindex $logset 1]
# In-memory logs cannot be used with -txn nosync.
set m_logargs [adjust_logargs $m_logtype]
set c_logargs [adjust_logargs $c_logtype]
set m_txnargs [adjust_txnargs $m_logtype]
set c_txnargs [adjust_txnargs $c_logtype]
# Open a master.
puts "\tRep$tnum.a: Open master with replication OFF."
repladd 1
set ma_envcmd "berkdb_env_noerr -create $m_txnargs $verbargs \
$m_logargs -log_max $log_max $envargs -errpfx MASTER \
$repmemargs -home $masterdir -rep"
set masterenv [eval $ma_envcmd $recargs]
$masterenv rep_limit 0 0
# Run rep_test in the master to advance log files.
puts "\tRep$tnum.b: Running rep_test to create some log files."
set start 0
eval rep_test $method $masterenv NULL $niter $start $start 0 $largs
incr start $niter
# Reset transport function to replnoop, and specify that
# this env will be master.
error_check_good \
transport_noop [$masterenv rep_transport {1 replnoop}] 0
error_check_good rep_on [$masterenv rep_start -master] 0
# If master is on-disk, archive.
if { $m_logtype != "in-memory" } {
puts "\tRep$tnum.c: Run log_archive - some logs should be removed."
set res [eval exec $util_path/db_archive -l -h $masterdir]
error_check_bad log.1.present [lsearch -exact $res log.0000000001] -1
set res [eval exec $util_path/db_archive -d -h $masterdir]
set res [eval exec $util_path/db_archive -l -h $masterdir]
error_check_good log.1.gone [lsearch -exact $res log.0000000001] -1
}
# Run rep_test some more - this simulates running without clients.
puts "\tRep$tnum.d: Running rep_test."
eval rep_test $method $masterenv NULL $niter $start $start 0 $largs
incr start $niter
# Open a client
puts "\tRep$tnum.e: Open client."
repladd 2
set cl_envcmd "berkdb_env_noerr -create $c_txnargs $verbargs \
$c_logargs -log_max $log_max $envargs -errpfx CLIENT \
$repmemargs -home $clientdir \
-rep_transport \[list 2 replsend\]"
set clientenv [eval $cl_envcmd $recargs -rep_client]
$clientenv rep_limit 0 0
$clientenv rep_request 4000 128000
# Set up envlist for processing messages later.
set envlist "{$masterenv 1} {$clientenv 2}"
# Turn replication on and off more than once.
set repeats 2
for { set i 0 } { $i < $repeats } { incr i } {
puts "\tRep$tnum.f.$i: Turn replication ON."
# Reset master transport function to replsend.
error_check_good transport_on \
[$masterenv rep_transport {1 replsend}] 0
# Have the master announce itself so messages will pass.
error_check_good rep_on [$masterenv rep_start -master] 0
# Create some new messages, and process them.
set nentries 50
eval rep_test \
$method $masterenv NULL $nentries $start $start 0 $largs
incr start $nentries
process_msgs $envlist
puts "\tRep$tnum.g.$i: Verify that client is up to date."
# Check that master and client contents match, to verify
# that client is up to date.
rep_verify $masterdir $masterenv $clientdir $clientenv 0 1 0
# Process messages again -- the rep_verify created some.
process_msgs $envlist
puts "\tRep$tnum.h.$i: Turn replication OFF on master."
error_check_good \
transport_off [$masterenv rep_transport {1 replnoop}] 0
puts "\tRep$tnum.i.$i: Running rep_test in replicated env."
eval rep_test \
$method $masterenv NULL $niter $start $start 0 $largs
incr start $niter
puts "\tRep$tnum.j.$i:\
Process messages; none should be available."
set nproced [proc_msgs_once $envlist NONE err]
error_check_good no_messages $nproced 0
# Client and master should NOT match.
puts "\tRep$tnum.k.$i: Master and client should NOT match."
rep_verify $masterdir $masterenv $clientdir $clientenv 0 0 0
}
error_check_good clientenv_close [$clientenv close] 0
error_check_good masterenv_close [$masterenv close] 0
replclose $testdir/MSGQUEUEDIR
}
|
