Import Tcl 8.6.11
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user