summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/tcltest/tcltest.tcl4
-rw-r--r--tests/init.test2
-rw-r--r--tests/package.test2
3 files changed, 4 insertions, 4 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index ad61f9c..af809f6 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -797,8 +797,8 @@ namespace eval tcltest {
proc loadIntoSlaveInterpreter {slave args} {
variable Version
- interp eval $slave [list set ::argv $args]
- interp eval $slave [list package require tcltest $Version]
+ interp eval $slave [package ifneeded tcltest $Version]
+ interp eval $slave "tcltest::configure {*}{$args}"
interp alias $slave ::tcltest::ReportToMaster \
{} ::tcltest::ReportedFromSlave
}
diff --git a/tests/init.test b/tests/init.test
index 62b3af2..79d9a04 100644
--- a/tests/init.test
+++ b/tests/init.test
@@ -11,7 +11,7 @@
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
if {"::tcltest" ni [namespace children]} {
- package require tcltest 2
+ package require tcltest 2.3.3
namespace import -force ::tcltest::*
}
diff --git a/tests/package.test b/tests/package.test
index 55aaf2b..bd57e86 100644
--- a/tests/package.test
+++ b/tests/package.test
@@ -13,7 +13,7 @@
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
if {"::tcltest" ni [namespace children]} {
- package require tcltest 2
+ package require tcltest 2.3.3
namespace import -force ::tcltest::*
}