1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 2004,2008 Oracle. All rights reserved. 4# 5# $Id: rep070.tcl,v 1.7 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST rep070 8# TEST Test of startup_done condition with idle master. 9# TEST 10# TEST Join a client to an existing master, and verify that 11# TEST the client detects startup_done even if the master 12# TEST does not execute any new transactions. 13# 14proc rep070 { method { niter 200 } { tnum "070" } args } { 15 16 source ./include.tcl 17 18 # Run for btree and queue only. 19 if { $checking_valid_methods } { 20 set test_methods {} 21 foreach method $valid_methods { 22 if { [is_btree $method] == 1 || [is_queue $method] == 1 } { 23 lappend test_methods $method 24 } 25 } 26 return $test_methods 27 } 28 if { [is_btree $method] != 1 && [is_queue $method] != 1 } { 29 puts "Skipping rep070 for method $method." 30 return 31 } 32 33 set args [convert_args $method $args] 34 set logsets [create_logsets 2] 35 36 # Run the body of the test with and without recovery, 37 # and with and without cleaning. Skip recovery with in-memory 38 # logging - it doesn't make sense. 39 # 40 foreach r $test_recopts { 41 foreach l $logsets { 42 set logindex [lsearch -exact $l "in-memory"] 43 if { $r == "-recover" && $logindex != -1 } { 44 puts "Skipping rep$tnum for -recover\ 45 with in-memory logs." 46 continue 47 } 48 puts "Rep$tnum ($method $r $args): Test of\ 49 internal initialization and startup_done." 50 puts "Rep$tnum: Master logs are [lindex $l 0]" 51 puts "Rep$tnum: Client logs are [lindex $l 1]" 52 rep070_sub $method $niter $tnum $l $r $args 53 } 54 } 55} 56 57proc rep070_sub { method niter tnum logset recargs largs } { 58 source ./include.tcl 59 global startp_done 60 global rep_verbose 61 global verbose_type 62 63 set verbargs "" 64 if { $rep_verbose == 1 } { 65 set verbargs " -verbose {$verbose_type on} " 66 } 67 68 env_cleanup $testdir 69 70 replsetup $testdir/MSGQUEUEDIR 71 72 set masterdir $testdir/MASTERDIR 73 set clientdir $testdir/CLIENTDIR 74 75 file mkdir $masterdir 76 file mkdir $clientdir 77 78 set m_logtype [lindex $logset 0] 79 set c_logtype [lindex $logset 1] 80 81 # In-memory logs cannot be used with -txn nosync. 82 set m_logargs [adjust_logargs $m_logtype] 83 set c_logargs [adjust_logargs $c_logtype] 84 set m_txnargs [adjust_txnargs $m_logtype] 85 set c_txnargs [adjust_txnargs $c_logtype] 86 87 # Open a master. 88 repladd 1 89 set ma_envcmd "berkdb_env_noerr -create $m_txnargs \ 90 $m_logargs $verbargs -errpfx MASTER \ 91 -home $masterdir -rep_transport \[list 1 replsend\]" 92 set masterenv [eval $ma_envcmd $recargs -rep_master] 93 94 # Put some data into the database 95 puts "\tRep$tnum.a: Run rep_test in master env." 96 set start 0 97 eval rep_test $method $masterenv NULL $niter $start $start 0 0 $largs 98 99 # Open a client 100 puts "\tRep$tnum.b: Open client." 101 repladd 2 102 set cl_envcmd "berkdb_env_noerr -create $c_txnargs \ 103 $c_logargs $verbargs -errpfx CLIENT \ 104 -home $clientdir -rep_transport \[list 2 replsend\]" 105 set clientenv [eval $cl_envcmd $recargs -rep_client] 106 107 set envlist "{$masterenv 1} {$clientenv 2}" 108 rep070_verify_startup_done $clientenv $envlist 109 110 # Close and re-open the client. What happens next depends on whether we 111 # used -recover. 112 # 113 $clientenv close 114 set clientenv [eval $cl_envcmd $recargs -rep_client] 115 set envlist "{$masterenv 1} {$clientenv 2}" 116 if { $recargs == "-recover" } { 117 rep070_verify_startup_done $clientenv $envlist 118 } else { 119 error_check_good \ 120 startup_still_done [rep070_startup_done $clientenv] 1 121 } 122 123 rep_verify $masterdir $masterenv $clientdir $clientenv 1 124 125 check_log_location $masterenv 126 check_log_location $clientenv 127 128 error_check_good masterenv_close [$masterenv close] 0 129 error_check_good clientenv_close [$clientenv close] 0 130 replclose $testdir/MSGQUEUEDIR 131} 132 133# Verify that startup_done starts off false, then turns to true at some point, 134# and thereafter never reverts to false. 135# 136proc rep070_verify_startup_done { clientenv envlist } { 137 # Initially we should not yet have startup_done. 138 set got_startup_done [rep070_startup_done $clientenv] 139 error_check_good startup_not_done_yet $got_startup_done 0 140 141 # Bring the client online little by little. 142 # 143 while { [proc_msgs_once $envlist] > 0 } { 144 set done [rep070_startup_done $clientenv] 145 146 # At some point, startup_done gets turned on. Make sure it 147 # never gets turned off after that. 148 # 149 if { $got_startup_done } { 150 # We've seen startup_done previously. 151 error_check_good no_rescind $done 1 152 } else { 153 set got_startup_done $done 154 } 155 } 156 error_check_good startup_done $got_startup_done 1 157} 158 159proc rep070_startup_done { env } { 160 stat_field $env rep_stat "Startup complete" 161} 162