diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-06-21 16:28:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-06-21 16:28:34 (GMT) |
| commit | f271c4ad0a19d06b3f42aa7ab22f92a4ebc0879e (patch) | |
| tree | 54b585e192a043e869013c7ddbc625ea2173573b /tests/pkg.test | |
| parent | 83102e6f2f98d36d59b7b69132074e9724dc2feb (diff) | |
| download | tcl-f271c4ad0a19d06b3f42aa7ab22f92a4ebc0879e.zip tcl-f271c4ad0a19d06b3f42aa7ab22f92a4ebc0879e.tar.gz tcl-f271c4ad0a19d06b3f42aa7ab22f92a4ebc0879e.tar.bz2 | |
Backport tcltest 2.3.3 for release with Tcl 8.5.*
Diffstat (limited to 'tests/pkg.test')
| -rw-r--r-- | tests/pkg.test | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/pkg.test b/tests/pkg.test index 7d818d4..62075f3 100644 --- a/tests/pkg.test +++ b/tests/pkg.test @@ -19,11 +19,10 @@ if {[lsearch [namespace children] ::tcltest] == -1} { # Do all this in a slave interp to avoid garbaging the # package list set i [interp create] -interp eval $i [list set argv $argv] -interp eval $i [list package require tcltest 2] -interp eval $i [list namespace import -force ::tcltest::*] -interp eval $i { +tcltest::loadIntoSlaveInterpreter $i {*}$argv +interp eval $i { +namespace import -force ::tcltest::* package forget {*}[package names] set oldPkgUnknown [package unknown] package unknown {} |