summaryrefslogtreecommitdiffstats
path: root/tests/proc.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/proc.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/proc.test')
-rw-r--r--tests/proc.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/proc.test b/tests/proc.test
index 9be056f..585efa5 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -99,7 +99,7 @@ test proc-1.6 {Tcl_ProcObjCmd, namespace code ignores single ":"s in middle or e
test proc-1.7 {Tcl_ProcObjCmd, check that formal parameter names are not array elements} -setup {
catch {rename p ""}
} -returnCodes error -body {
- proc p {a(1) a(2)} {
+ proc p {a(1) a(2)} {
set z [expr $a(1)+$a(2)]
puts "$z=z, $a(1)=$a(1)"
}
@@ -107,7 +107,7 @@ test proc-1.7 {Tcl_ProcObjCmd, check that formal parameter names are not array e
test proc-1.8 {Tcl_ProcObjCmd, check that formal parameter names are simple names} -setup {
catch {rename p ""}
} -body {
- proc p {b:a b::a} {
+ proc p {b:a b::a} {
}
} -returnCodes error -result {formal parameter "b::a" is not a simple name}
test proc-1.9 {Tcl_ProcObjCmd, arguments via canonical list (string-representation bug [631b4c45df])} -body {
@@ -340,7 +340,7 @@ test proc-5.1 {Bytecompiling noop; test for correct argument substitution} -body
} -cleanup {
catch {rename p ""}
catch {rename t ""}
-} -result {aba}
+} -result {aba}
test proc-6.1 {ProcessProcResultCode: Bug 647307 (negative return code)} -body {
proc a {} {return -code -5}
@@ -389,9 +389,9 @@ test proc-7.3 {Returning loop exception from redefined cmd: Bug 729692} -body {
test proc-7.4 {Proc struct outlives its interp: Bug 3532959} {
set lambda x
lappend lambda {set a 1}
- interp create slave
- slave eval [list apply $lambda foo]
- interp delete slave
+ interp create child
+ child eval [list apply $lambda foo]
+ interp delete child
unset lambda
} {}