proc rep006 { method { niter 1000 } { tnum "006" } args } {
source ./include.tcl
if { $is_windows9x_test == 1 } {
puts "Skipping replication test on Win 9x platform."
return
}
set logsets [create_logsets 2]
if { $checking_valid_methods } {
return "ALL"
}
foreach r $test_recopts {
foreach l $logsets {
set logindex [lsearch -exact $l "in-memory"]
if { $r == "-recover" && $logindex != -1 } {
puts "Rep$tnum: Skipping for in-memory logs\
with -recover."
continue
}
puts "Rep$tnum ($method $r):\
Replication and non-rep env handles"
puts "Rep$tnum: Master logs are [lindex $l 0]"
puts "Rep$tnum: Client logs are [lindex $l 1]"
rep006_sub $method $niter $tnum $l $r $args
}
}
}
proc rep006_sub { method niter tnum logset recargs largs } {
source ./include.tcl
global testdir
global is_hp_test
global rep_verbose
global verbose_type
set verbargs ""
if { $rep_verbose == 1 } {
set verbargs " -verbose {$verbose_type on} "
}
env_cleanup $testdir
replsetup $testdir/MSGQUEUEDIR
set masterdir $testdir/MASTERDIR
set clientdir $testdir/CLIENTDIR
file mkdir $masterdir
file mkdir $clientdir
set m_logtype [lindex $logset 0]
set c_logtype [lindex $logset 1]
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]
if { [is_record_based $method] == 1 } {
set checkfunc test001_recno.check
} else {
set checkfunc test001.check
}
repladd 1
set max_locks 2500
set env_cmd(M) "berkdb_env_noerr -create -log_max 1000000 \
-lock_max_objects $max_locks -lock_max_locks $max_locks \
-home $masterdir -errpfx MASTER $verbargs \
$m_txnargs $m_logargs -rep_master -rep_transport \
\[list 1 replsend\]"
set masterenv [eval $env_cmd(M) $recargs]
repladd 2
set env_cmd(C) "berkdb_env_noerr -create $c_txnargs $c_logargs \
-lock_max_objects $max_locks -lock_max_locks $max_locks \
-home $clientdir -errpfx CLIENT $verbargs \
-rep_client -rep_transport \[list 2 replsend\]"
set clientenv [eval $env_cmd(C) $recargs]
set envlist "{$masterenv 1} {$clientenv 2}"
process_msgs $envlist
puts "\tRep$tnum.a: Running test001 in replicated env."
eval rep_test $method $masterenv NULL $niter 0 0 0 0 $largs
process_msgs $envlist
puts "\tRep$tnum.b: Verifying client database contents."
set testdir [get_home $masterenv]
set t1 $testdir/t1
set t2 $testdir/t2
set t3 $testdir/t3
open_and_dump_file test.db $clientenv $t1 \
$checkfunc dump_file_direction "-first" "-next"
set conf [berkdb getconfig]
set skip_for_config 0
if { [is_substr $conf "debug_rop"] == 1 \
|| [is_substr $conf "debug_wop"] == 1 \
|| [is_substr $conf "diagnostic"] == 0 } {
set skip_for_config 1
}
if { $skip_for_config == 1 } {
puts "\tRep$tnum.c: Skipping based on configuration."
} else {
puts "\tRep$tnum.c: Verifying non-master db_checkpoint."
set stat \
[catch {exec $util_path/db_checkpoint -h $masterdir -1} ret]
error_check_good open_err $stat 1
error_check_good \
open_err1 [is_substr $ret "attempting to modify"] 1
}
if { $is_hp_test == 1 } {
puts "\tRep$tnum.d: Skipping for HP-UX."
} elseif { $skip_for_config == 1 } {
puts "\tRep$tnum.d: Skipping based on configuration."
} else {
puts "\tRep$tnum.d: Verifying non-master access."
set rdenv [eval {berkdb_env_noerr} \
-home $masterdir $verbargs]
error_check_good rdenv [is_valid_env $rdenv] TRUE
set stat \
[catch {berkdb_open_noerr -env $rdenv test.db} ret]
error_check_good open_err $stat 1
error_check_good \
open_err1 [is_substr $ret "attempting to modify"] 1
error_check_good rdenv_close [$rdenv close] 0
}
process_msgs $envlist
error_check_good masterenv_close [$masterenv close] 0
error_check_good clientenv_close [$clientenv close] 0
error_check_good verify \
[verify_dir $clientdir "\tRep$tnum.e: " 0 0 1] 0
replclose $testdir/MSGQUEUEDIR
}