1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 2007,2008 Oracle. All rights reserved. 4# 5# $Id: rep073.tcl,v 1.5 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST rep073 8# TEST 9# TEST Test of allowing clients to create and update their own scratch 10# TEST databases within the environment. Doing so requires the use 11# TEST use of the DB_TXN_NOT_DURABLE flag for those databases. 12# 13proc rep073 { method { niter 200 } { tnum "073" } args } { 14 15 source ./include.tcl 16 if { $is_windows9x_test == 1 } { 17 puts "Skipping replication test on Win 9x platform." 18 return 19 } 20 21 # Valid for all access methods. 22 if { $checking_valid_methods } { 23 return "ALL" 24 } 25 26 set args [convert_args $method $args] 27 set logsets [create_logsets 2] 28 29 # Run the body of the test with and without recovery, 30 # and with and without cleaning. Skip recovery with in-memory 31 # logging - it doesn't make sense. 32 foreach r $test_recopts { 33 foreach l $logsets { 34 set logindex [lsearch -exact $l "in-memory"] 35 if { $r == "-recover" && $logindex != -1 } { 36 puts "Skipping rep$tnum for -recover\ 37 with in-memory logs." 38 continue 39 } 40 puts "Rep$tnum ($method $r $args):\ 41 Test of non-durable databases and replication." 42 puts "Rep$tnum: Master logs are [lindex $l 0]" 43 puts "Rep$tnum: Client logs are [lindex $l 1]" 44 rep073_sub $method $niter $tnum $l $r $args 45 } 46 } 47} 48 49proc rep073_sub { method niter tnum logset recargs largs } { 50 source ./include.tcl 51 global testdir 52 global util_path 53 global rep_verbose 54 global verbose_type 55 56 set verbargs "" 57 if { $rep_verbose == 1 } { 58 set verbargs " -verbose {$verbose_type on} " 59 } 60 61 env_cleanup $testdir 62 63 set omethod [convert_method $method] 64 replsetup $testdir/MSGQUEUEDIR 65 66 set masterdir $testdir/MASTERDIR 67 set clientdir $testdir/CLIENTDIR 68 69 file mkdir $masterdir 70 file mkdir $clientdir 71 72 set m_logtype [lindex $logset 0] 73 set c_logtype [lindex $logset 1] 74 75 # In-memory logs cannot be used with -txn nosync. 76 set m_logargs [adjust_logargs $m_logtype] 77 set c_logargs [adjust_logargs $c_logtype] 78 set m_txnargs [adjust_txnargs $m_logtype] 79 set c_txnargs [adjust_txnargs $c_logtype] 80 81 # Open a master. 82 repladd 1 83 set ma_envcmd "berkdb_env_noerr -create $m_txnargs $m_logargs \ 84 -errpfx MASTER \ 85 -home $masterdir $verbargs -rep_transport \[list 1 replsend\]" 86 set masterenv [eval $ma_envcmd $recargs -rep_master] 87 88 # Open a client 89 repladd 2 90 set cl_envcmd "berkdb_env_noerr -create $c_txnargs $c_logargs \ 91 -errpfx CLIENT \ 92 -home $clientdir $verbargs -rep_transport \[list 2 replsend\]" 93 set clientenv [eval $cl_envcmd $recargs -rep_client] 94 error_check_good client_env [is_valid_env $clientenv] TRUE 95 96 # Bring the clients online by processing the startup messages. 97 set envlist "{$masterenv 1} {$clientenv 2}" 98 process_msgs $envlist 99 100 # Run rep_test in the master (and update client). 101 puts "\tRep$tnum.a: Running rep_test in replicated env." 102 set start 0 103 eval rep_test $method $masterenv NULL $niter $start $start 0 0 $largs 104 incr start $niter 105 process_msgs $envlist 106 107 set mtestfile "master.db" 108 set ctestfile "client.db" 109 puts "\tRep$tnum.b: Open non-durable databases on master and client." 110 set mdb [berkdb_open -create -auto_commit \ 111 -btree -env $masterenv -notdurable $mtestfile] 112 set cdb [berkdb_open -create -auto_commit \ 113 -btree -env $clientenv -notdurable $ctestfile] 114 process_msgs $envlist 115 # 116 # Verify that neither file exists on the other site. 117 # 118 error_check_good master_not_on_client \ 119 [file exists $clientdir/$mtestfile] 0 120 error_check_good client_not_on_master \ 121 [file exists $masterdir/$ctestfile] 0 122 123 # 124 # Now write to the master database, process messages and 125 # make sure nothing get sent to the client. 126 # 127 puts "\tRep$tnum.c: Write to non-durable database on master." 128 eval rep_test $method $masterenv $mdb $niter $start $start 0 0 $largs 129 incr start $niter 130 process_msgs $envlist 131 error_check_good master_not_on_client \ 132 [file exists $clientdir/$mtestfile] 0 133 134 # Make sure client can write to its own database. 135 puts "\tRep$tnum.d: Write to non-durable database on client." 136 eval rep_test $method $clientenv $cdb $niter $start $start 0 0 $largs 137 process_msgs $envlist 138 139 error_check_good mdb_close [$mdb close] 0 140 error_check_good cdb_close [$cdb close] 0 141 142 rep_verify $masterdir $masterenv $clientdir $clientenv 143 error_check_good masterenv_close [$masterenv close] 0 144 error_check_good clientenv_close [$clientenv close] 0 145 146 replclose $testdir/MSGQUEUEDIR 147} 148