diff options
Diffstat (limited to 'test/repmgr016.tcl')
-rw-r--r-- | test/repmgr016.tcl | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/test/repmgr016.tcl b/test/repmgr016.tcl new file mode 100644 index 00000000..8121f4f2 --- /dev/null +++ b/test/repmgr016.tcl @@ -0,0 +1,45 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 2007-2009 Oracle. All rights reserved. +# +# $Id$ +# +# TEST repmgr016 +# TEST Basic repmgr in-memory internal init test. +# TEST +# TEST Start an appointed master site and two clients, processing +# TEST transactions between each additional site. Verify all expected +# TEST transactions are replicated. Replication files are in-memory; +# TEST databases, logs and environment regions are on-disk. +# TEST +# TEST Run for btree only because access method shouldn't matter. +# TEST +proc repmgr016 { method { niter 100 } { tnum "016" } args } { + + source ./include.tcl + + if { $is_freebsd_test == 1 } { + puts "Skipping replication manager test on FreeBSD platform." + return + } + + if { $is_windows9x_test == 1 } { + puts "Skipping replication test on Win9x platform." + return + } + + # Skip for all methods except btree. + if { $checking_valid_methods } { + return btree + } + if { [is_btree $method] == 0 } { + puts "Repmgr$tnum: skipping for non-btree method $method." + return + } + + set args [convert_args $method $args] + + puts -nonewline "Repmgr$tnum ($method): Basic repmgr internal init " + puts "test with rep files in-memory." + basic_repmgr_init_test $method $niter $tnum 1 $args +} |