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/proc.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/proc.test')
-rw-r--r-- | tests/proc.test | 12 |
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 } {} |