diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-20 08:24:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-20 08:24:16 (GMT) |
commit | bbe2ea1d0e29301b36d42a167abfe8f11d6a60b2 (patch) | |
tree | d3330833ffb9188ed9fb708d7585a4d882ddd358 /tests/package.test | |
parent | 4bca76be3bbc5ddc9b2e49ed021b0f84fa09812b (diff) | |
parent | a15ea81906fdac4ed3868e9866d07a8ca4c2354c (diff) | |
download | tcl-bbe2ea1d0e29301b36d42a167abfe8f11d6a60b2.zip tcl-bbe2ea1d0e29301b36d42a167abfe8f11d6a60b2.tar.gz tcl-bbe2ea1d0e29301b36d42a167abfe8f11d6a60b2.tar.bz2 |
Merge 8.5.
Mark testcases io-50.* nonPortable: they fail too often in travis builds.
Diffstat (limited to 'tests/package.test')
-rw-r--r-- | tests/package.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/package.test b/tests/package.test index bc73003..a147457 100644 --- a/tests/package.test +++ b/tests/package.test @@ -17,9 +17,9 @@ if {"::tcltest" ni [namespace children]} { namespace import -force ::tcltest::* } -# Do all this in a slave interp to avoid garbaging the package list +# Do all this in a child interp to avoid garbaging the package list set i [interp create] -tcltest::loadIntoSlaveInterpreter $i {*}$argv +tcltest::loadIntoChildInterpreter $i {*}$argv interp eval $i { namespace import -force ::tcltest::* package forget {*}[package names] @@ -862,15 +862,15 @@ test package-4.56 {Tcl_PackageCmd procedure, "vsatisfies" option} -body { # No tests for FindPackage; can't think up anything detectable errors. test package-5.1 {TclFreePackageInfo procedure} { - interp create slave - slave eval { + interp create child + child eval { package ifneeded t 2.3 x package ifneeded t 2.4 y package ifneeded x 3.1 z package provide q 4.3 package unknown "will this get freed?" } - interp delete slave + interp delete child } {} test package-5.2 {TclFreePackageInfo procedure} -body { interp create foo |