summaryrefslogtreecommitdiff
path: root/test/tcl/rep037.tcl
diff options
context:
space:
mode:
authorLorry Tar Creator <lorry-tar-importer@baserock.org>2015-02-17 17:25:57 +0000
committer <>2015-03-17 16:26:24 +0000
commit780b92ada9afcf1d58085a83a0b9e6bc982203d1 (patch)
tree598f8b9fa431b228d29897e798de4ac0c1d3d970 /test/tcl/rep037.tcl
parent7a2660ba9cc2dc03a69ddfcfd95369395cc87444 (diff)
downloadberkeleydb-master.tar.gz
Imported from /home/lorry/working-area/delta_berkeleydb/db-6.1.23.tar.gz.HEADdb-6.1.23master
Diffstat (limited to 'test/tcl/rep037.tcl')
-rw-r--r--test/tcl/rep037.tcl15
1 files changed, 10 insertions, 5 deletions
diff --git a/test/tcl/rep037.tcl b/test/tcl/rep037.tcl
index 10dea8a9..c020bf41 100644
--- a/test/tcl/rep037.tcl
+++ b/test/tcl/rep037.tcl
@@ -1,6 +1,6 @@
# See the file LICENSE for redistribution information.
#
-# Copyright (c) 2004, 2012 Oracle and/or its affiliates. All rights reserved.
+# Copyright (c) 2004, 2015 Oracle and/or its affiliates. All rights reserved.
#
# $Id$
#
@@ -112,6 +112,11 @@ proc rep037_sub { method niter tnum logset recargs config largs } {
set privargs " -private "
}
+ set blobargs ""
+ if { [can_support_blobs $method $largs] == 1 } {
+ set blobargs "-blob_threshold 1024"
+ }
+
env_cleanup $testdir
replsetup $testdir/MSGQUEUEDIR
@@ -133,8 +138,8 @@ proc rep037_sub { method niter tnum logset recargs config largs } {
set c_logtype [lindex $logset 1]
# In-memory logs cannot be used with -txn nosync.
- set m_logargs [adjust_logargs $m_logtype]
- set c_logargs [adjust_logargs $c_logtype]
+ set m_logargs [adjust_logargs $m_logtype 1048576]
+ set c_logargs [adjust_logargs $c_logtype 1048576]
set m_txnargs [adjust_txnargs $m_logtype]
set c_txnargs [adjust_txnargs $c_logtype]
@@ -162,7 +167,7 @@ proc rep037_sub { method niter tnum logset recargs config largs } {
repladd 1
set ma_envcmd "berkdb_env_noerr -create $m_txnargs $repmemargs \
$m_logargs -log_max $log_max -errpfx MASTER $verbargs \
- $privargs \
+ $privargs $blobargs \
-home $masterdir -rep_transport \[list 1 replsend\]"
set masterenv [eval $ma_envcmd $recargs -rep_master]
$masterenv rep_limit 0 [expr 32 * 1024]
@@ -171,7 +176,7 @@ proc rep037_sub { method niter tnum logset recargs config largs } {
repladd 2
set cl_envcmd "berkdb_env_noerr -create $c_txnargs $repmemargs \
$c_logargs -log_max $log_max -errpfx CLIENT $verbargs \
- $privargs \
+ $privargs $blobargs \
-home $clientdir -rep_transport \[list 2 replsend\]"
set clientenv [eval $cl_envcmd $recargs -rep_client]
error_check_good client_env [is_valid_env $clientenv] TRUE