summaryrefslogtreecommitdiffstats
path: root/tests/autoMkindex.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-01 10:33:33 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-01 10:33:33 (GMT)
commitd99566171273e05f659f3f4f364b9d1948ec8565 (patch)
treec4a99a3ac584ca9f6609ca8575261cf7b3d419a0 /tests/autoMkindex.test
parentd52b3eef8055623bab469007083629a4e134955b (diff)
parent724de352e37dd0fe795024353378cd662593b4a6 (diff)
downloadtcl-d99566171273e05f659f3f4f364b9d1948ec8565.zip
tcl-d99566171273e05f659f3f4f364b9d1948ec8565.tar.gz
tcl-d99566171273e05f659f3f4f364b9d1948ec8565.tar.bz2
Merge 8.6
Diffstat (limited to 'tests/autoMkindex.test')
-rw-r--r--tests/autoMkindex.test16
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