summaryrefslogtreecommitdiffstats
path: root/tests/parse.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-01 09:15:11 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-01 09:15:11 (GMT)
commit724de352e37dd0fe795024353378cd662593b4a6 (patch)
tree4d740034b1040a594df0e43c023bc8c38283368d /tests/parse.test
parent6b0b7154f13dc5d47830ef1daaea80c791504f8a (diff)
downloadtcl-724de352e37dd0fe795024353378cd662593b4a6.zip
tcl-724de352e37dd0fe795024353378cd662593b4a6.tar.gz
tcl-724de352e37dd0fe795024353378cd662593b4a6.tar.bz2
Many more internal master/slave -> parent/child renamings
Diffstat (limited to 'tests/parse.test')
-rw-r--r--tests/parse.test20
1 files changed, 10 insertions, 10 deletions
diff --git a/tests/parse.test b/tests/parse.test
index d73c725..9980015 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -369,7 +369,7 @@ test parse-8.8 {Tcl_EvalObjv procedure, async handlers} -constraints {
variable ::aresult
variable ::acode
proc async1 {result code} {
- variable ::aresult
+ variable ::aresult
variable ::acode
set aresult $result
set acode $code
@@ -405,14 +405,14 @@ test parse-8.11 {Tcl_EvalObjv procedure, TCL_EVAL_INVOKE} testevalobjv {
proc ::unknown args {lappend ::info [info level]; uplevel 1 foo}
proc ::foo args {lappend ::info global}
catch {rename ::noSuchCommand {}}
- set ::slave [interp create]
- $::slave alias bar noSuchCommand
+ set ::child [interp create]
+ $::child alias bar noSuchCommand
set ::info {}
namespace eval test_ns_1 {
proc foo args {lappend ::info namespace}
- $::slave eval bar
- testevalobjv 1 [list $::slave eval bar]
- uplevel #0 [list $::slave eval bar]
+ $::child eval bar
+ testevalobjv 1 [list $::child eval bar]
+ uplevel #0 [list $::child eval bar]
}
namespace delete test_ns_1
rename ::foo {}
@@ -429,14 +429,14 @@ test parse-8.12 {Tcl_EvalObjv procedure, TCL_EVAL_INVOKE} {
lappend ::info ns
}]
catch {rename ::noSuchCommand {}}
- set ::slave [interp create]
- $::slave alias bar noSuchCommand
+ set ::child [interp create]
+ $::child alias bar noSuchCommand
set ::info {}
namespace eval test_ns_1 {
- $::slave eval bar
+ $::child eval bar
}
namespace delete test_ns_1
- interp delete $::slave
+ interp delete $::child
catch {rename ::noSuchCommand {}}
set ::info
} global