blob: 0f9cd13da52632f2f952c58e34b58e443ad25593 (
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2005-2006
# Oracle Corporation. All rights reserved.
#
# $Id: rep059.tcl,v 1.7 2006/09/08 20:32:18 bostic Exp $
#
# TEST rep059
# TEST
# TEST Replication with multiple recycle records.
# TEST
# TEST Mimic an application where a client has multiple recycle records
# TEST only in its log and then tries to synchronize. This has been
# TEST a problem because there is real log, but no perm records to
# TEST match on.
#
proc rep059 { method { tnum "059" } args } {
global testdir
source ./include.tcl
set orig_tdir $testdir
if { $is_windows9x_test == 1 } {
puts "Skipping replication test on Win 9x platform."
return
}
# There should be no difference with methods. Just use btree.
#
if { $checking_valid_methods }
set test_methods { btree }
return $test_methods
}
if { [is_btree $method] == 0 } {
puts "Rep059: Skipping for method $method."
return
}
set largs [convert_args $method $args]
set masterdir $testdir/MASTERDIR
set clientdir $testdir/CLIENTDIR
set clientdir2 $testdir/CLIENTDIR2
env_cleanup $testdir
replsetup $testdir/MSGQUEUEDIR
file mkdir $masterdir
file mkdir $clientdir
file mkdir $clientdir2
set omethod [convert_method $method]
# Open a master.
repladd 1
set envcmd(M) "berkdb_env_noerr -create -txn nosync\
-lock_detect default \
-home $masterdir -rep_transport \[list 1 replsend\]"
# set envcmd(M) "berkdb_env_noerr -create -txn nosync \
# -lock_detect default \
# -errpfx ENV.M -verbose {rep on} -errfile /dev/stderr \
# -home $masterdir -rep_transport \[list 1 replsend\]"
set menv [eval $envcmd(M)]
error_check_good master_env0 [is_valid_env $menv] TRUE
# Open a client
repladd 2
set envcmd(C) "berkdb_env_noerr -create -txn nosync \
-lock_detect default \
-home $clientdir -rep_transport \[list 2 replsend\]"
# set envcmd(C) "berkdb_env_noerr -create -txn nosync \
# -lock_detect default \
# -errpfx ENV.C -verbose {rep on} -errfile /dev/stderr \
# -home $clientdir -rep_transport \[list 2 replsend\]"
set cenv [eval $envcmd(C)]
error_check_good client_env [is_valid_env $cenv] TRUE
# Open a 2nd client
repladd 3
set envcmd(C2) "berkdb_env_noerr -create -txn nosync \
-lock_detect default \
-home $clientdir2 -rep_transport \[list 3 replsend\]"
# set envcmd(C2) "berkdb_env_noerr -create -txn nosync \
# -lock_detect default \
# -errpfx ENV.C2 -verbose {rep on} -errfile /dev/stderr \
# -home $clientdir2 -rep_transport \[list 3 replsend\]"
set c2env [eval $envcmd(C2)]
error_check_good client2_env [is_valid_env $c2env] TRUE
#
# Set test location, then start as master and client
# This test hook will cause the master to return after
# writing the txn_recycle record in rep_start, but
# before writing the checkpoint, so that we have some
# log, but no perm records in the log when the new
# master takes over.
#
$menv test copy recycle
puts "\tRep$tnum.a: Start master and 2 clients."
error_check_good master [$menv rep_start -master] 0
error_check_good client [$cenv rep_start -client] 0
error_check_good client2 [$c2env rep_start -client] 0
set envlist "{$menv 1} {$cenv 2} {$c2env 3}"
process_msgs $envlist
# Pretend master crashes. Just close it and
# don't use it anymore.
error_check_good menv_close [$menv close] 0
puts "\tRep$tnum.b: Make client1 master."
set cenv [eval $envcmd(C) -rep_master]
set envlist "{$cenv 2} {$c2env 3}"
process_msgs $envlist
puts "\tRep$tnum.c: Clean up."
error_check_good cenv_close [$cenv close] 0
error_check_good c2env_close [$c2env close] 0
replclose $testdir/MSGQUEUEDIR
set testdir $orig_tdir
return
}
|
