1 files changed, 63 insertions, 0 deletions
diff --git a/test/tcl/rep110script.tcl b/test/tcl/rep110script.tcl
new file mode 100644
index 00000000..e31629be
--- /dev/null
+++ b/test/tcl/rep110script.tcl
@@ -0,0 +1,63 @@
+# See the file LICENSE for redistribution information.
+#
+# Copyright (c) 2012, 2015 Oracle and/or its affiliates.  All rights reserved.
+#
+# $Id$
+#
+# Rep110 script - open an environment handle and then close it.
+# This tests a codepath with NOWAIT set where the handle_cnt
+# was getting messed up if we are in internal init and would
+# need to wait.
+#
+# Usage: repscript clientdir verb
+# clientdir: client env directory
+# verb: verbose setting
+source ./include.tcl
+source $test_path/test.tcl
+source $test_path/testutils.tcl
+source $test_path/reputils.tcl
+
+set usage "repscript clientdir verb"
+
+# Verify usage
+if { $argc != 2 } {
+	puts stderr "FAIL:[timestamp] Usage: $usage"
+	exit
+}
+
+# Initialize arguments
+set clientdir [ lindex $argv 0 ]
+set rep_verbose [ lindex $argv 1 ]
+
+# Join the queue env.  We assume the rep test convention of
+# placing the messages in $testdir/MSGQUEUEDIR.
+set queueenv [eval berkdb_env -home $testdir/MSGQUEUEDIR]     
+error_check_good script_qenv_open [is_valid_env $queueenv] TRUE
+
+# Join the client env.  We expect an error on the open,
+# so that is the only thing we do.
+repladd 1
+repladd 2
+set envid 2
+if { $rep_verbose } {
+	set cl2_cmd "berkdb_env_noerr -home $clientdir \
+		-errfile /dev/stderr -errpfx CLIENT.child \
+	 	-verbose {rep on} \
+	 	-txn -rep_client -rep_transport \[list $envid replsend\]"
+} else {
+	set cl2_cmd "berkdb_env_noerr -home $clientdir \
+		-errfile /dev/stderr -errpfx CLIENT.child \
+		-txn -rep_client -rep_transport \[list $envid replsend\]"
+}
+
+#
+# We expect a DB_REP_LOCKOUT error returned from this.
+#
+set stat [catch {eval $cl2_cmd} ret]
+error_check_good stat $stat 1
+error_check_good ret [is_substr $ret DB_REP_LOCKOUT] 1
+
+tclsleep 1
+replclose $testdir/MSGQUEUEDIR
+
+return