diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-01 10:33:33 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-01 10:33:33 (GMT) |
commit | d99566171273e05f659f3f4f364b9d1948ec8565 (patch) | |
tree | c4a99a3ac584ca9f6609ca8575261cf7b3d419a0 /tests/autoMkindex.test | |
parent | d52b3eef8055623bab469007083629a4e134955b (diff) | |
parent | 724de352e37dd0fe795024353378cd662593b4a6 (diff) | |
download | tcl-d99566171273e05f659f3f4f364b9d1948ec8565.zip tcl-d99566171273e05f659f3f4f364b9d1948ec8565.tar.gz tcl-d99566171273e05f659f3f4f364b9d1948ec8565.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests/autoMkindex.test')
-rw-r--r-- | tests/autoMkindex.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test index 85f7c0b..3e986c1 100644 --- a/tests/autoMkindex.test +++ b/tests/autoMkindex.test @@ -146,10 +146,10 @@ test autoMkindex-1.3 {examine tclIndex} -setup { test autoMkindex-2.1 {commands on the autoload path can be imported} -setup { file delete tclIndex - interp create slave + interp create child } -body { auto_mkindex . autoMkindex.tcl - slave eval { + child eval { namespace eval blt {} set auto_path [linsert $auto_path 0 .] set info [list [catch {namespace import buried::*} result] $result] @@ -159,7 +159,7 @@ test autoMkindex-2.1 {commands on the autoload path can be imported} -setup { return $info } } -cleanup { - interp delete slave + interp delete child } -result "0 {} pub_one ::buried::pub_one pub_two ::buried::pub_two" # Test auto_mkindex hooks @@ -335,14 +335,14 @@ test autoMkindex-5.2 {correctly locate auto loaded procs with []} -setup { proc {[magic mojo proc]} {} {} } [file join pkg magicchar2.tcl] set result {} - interp create slave + interp create child } -body { auto_mkindex . pkg/magicchar2.tcl - # Make a slave interp to test the autoloading - slave eval {lappend auto_path [pwd]} - slave eval {catch {{[magic mojo proc]}}} + # Make a child interp to test the autoloading + child eval {lappend auto_path [pwd]} + child eval {catch {{[magic mojo proc]}}} } -cleanup { - interp delete slave + interp delete child removeFile [file join pkg magicchar2.tcl] removeDirectory pkg } -result 0 |