diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-05 20:45:04 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-05 20:45:04 (GMT) |
commit | 66dd14a48053da5e5f4463d0d83b9e5480a9bd5e (patch) | |
tree | fdfb7d34ece5a2cbf6649301b15d2783356ff128 /tests/ioTrans.test | |
parent | f2963d15d036e305300773f74a602c9c0a8c9229 (diff) | |
download | tcl-66dd14a48053da5e5f4463d0d83b9e5480a9bd5e.zip tcl-66dd14a48053da5e5f4463d0d83b9e5480a9bd5e.tar.gz tcl-66dd14a48053da5e5f4463d0d83b9e5480a9bd5e.tar.bz2 |
TIP #581: Last possible master/slave -> parent/child changes, without affecting anything serious
Diffstat (limited to 'tests/ioTrans.test')
-rw-r--r-- | tests/ioTrans.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test index 2872fbb..f185117 100644 --- a/tests/ioTrans.test +++ b/tests/ioTrans.test @@ -1244,16 +1244,16 @@ test iortrans-11.1 {origin interpreter of moved transform destroyed during acces tempdone } -result {Owner lost} test iortrans-11.2 {delete interp of reflected transform} -setup { - interp create slave - # Magic to get the test* commands into the slave - load {} Tcltest slave + interp create child + # Magic to get the test* commands into the child + load {} Tcltest child } -constraints {testchannel} -body { - # Get base channel into the slave + # Get base channel into the child set c [tempchan] testchannel cut $c - interp eval slave [list testchannel splice $c] - interp eval slave [list set c $c] - slave eval { + interp eval child [list testchannel splice $c] + interp eval child [list set c $c] + child eval { proc no-op args {} proc driver {c sub args} { return {initialize finalize read write} @@ -1261,7 +1261,7 @@ test iortrans-11.2 {delete interp of reflected transform} -setup { set t [chan push $c [list driver $c]] chan event $c readable no-op } - interp delete slave + interp delete child } -cleanup { tempdone } -result {} |