diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-01 09:15:11 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-01 09:15:11 (GMT) |
commit | 724de352e37dd0fe795024353378cd662593b4a6 (patch) | |
tree | 4d740034b1040a594df0e43c023bc8c38283368d /tests/subst.test | |
parent | 6b0b7154f13dc5d47830ef1daaea80c791504f8a (diff) | |
download | tcl-724de352e37dd0fe795024353378cd662593b4a6.zip tcl-724de352e37dd0fe795024353378cd662593b4a6.tar.gz tcl-724de352e37dd0fe795024353378cd662593b4a6.tar.bz2 |
Many more internal master/slave -> parent/child renamings
Diffstat (limited to 'tests/subst.test')
-rw-r--r-- | tests/subst.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/subst.test b/tests/subst.test index 189dfe8..21aecc5 100644 --- a/tests/subst.test +++ b/tests/subst.test @@ -166,7 +166,7 @@ test subst-8.6 {return in a subst} -returnCodes error -body { subst "foo \[return {x}; bogus code bar" } -result {missing close-bracket} test subst-8.7 {return in a subst, parse error} -body { - subst {foo [return {x} ; set a {}"" ; stuff] bar} + subst {foo [return {x} ; set a {}"" ; stuff] bar} } -returnCodes error -result {extra characters after close-brace} test subst-8.8 {return in a subst, parse error} -body { subst {foo [return {x} ; set bar baz ; set a {}"" ; stuff] bar} @@ -282,18 +282,18 @@ test subst-13.1 {Bug 3081065} -setup { demo name2 } subst13.tcl] } -body { - interp create slave - slave eval [list source $script] - interp delete slave - interp create slave - slave eval { + interp create child + child eval [list source $script] + interp delete child + interp create child + child eval { set count 400 while {[incr count -1]} { lappend bloat [expr {rand()}] } } - slave eval [list source $script] - interp delete slave + child eval [list source $script] + interp delete child } -cleanup { removeFile subst13.tcl } |