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/ioTrans.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/ioTrans.test')
| -rw-r--r-- | tests/ioTrans.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test index 85e427a..867362a 100644 --- a/tests/ioTrans.test +++ b/tests/ioTrans.test @@ -1162,7 +1162,7 @@ test iortrans-8.3 {chan flush, bug 2921116} -match glob -setup { test iortrans-11.0 {origin interpreter of moved transform gone} -setup { set ida [interp create]; #puts <<$ida>> set idb [interp create]; #puts <<$idb>> - # Magic to get the test* commands in the slaves + # Magic to get the test* commands in the children load {} Tcltest $ida load {} Tcltest $idb } -constraints {testchannel} -match glob -body { @@ -1205,7 +1205,7 @@ test iortrans-11.0 {origin interpreter of moved transform gone} -setup { test iortrans-11.1 {origin interpreter of moved transform destroyed during access} -setup { set ida [interp create]; #puts <<$ida>> set idb [interp create]; #puts <<$idb>> - # Magic to get the test* commands in the slaves + # Magic to get the test* commands in the children load {} Tcltest $ida load {} Tcltest $idb } -constraints {testchannel} -match glob -body { @@ -1320,7 +1320,7 @@ proc inthread {chan script args} { # forwarded channel operations. set ::tres "" - thread::send -async $tid { + thread::send -async $tid { after 50 catch {s} res; # This runs the script, 's' was defined at (*) thread::send -async $mid [list set ::tres $res] |