diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-10 18:17:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-10 18:17:28 (GMT) |
| commit | e5eec4e2673a958ea73df11616a148c06adb3db4 (patch) | |
| tree | 2d3b358c5ca2114c321d25a514839d921748c698 | |
| parent | 727acbea9d3864df74090ab1146fdbec3e64c225 (diff) | |
| download | tcl-e5eec4e2673a958ea73df11616a148c06adb3db4.zip tcl-e5eec4e2673a958ea73df11616a148c06adb3db4.tar.gz tcl-e5eec4e2673a958ea73df11616a148c06adb3db4.tar.bz2 | |
makeFile / removeFile balance.
| -rw-r--r-- | tests/ioTrans.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test index c40621b..53078f7 100644 --- a/tests/ioTrans.test +++ b/tests/ioTrans.test @@ -1037,6 +1037,8 @@ test iortrans-11.1 {origin interpreter of moved transform destroyed during acces } -constraints {testchannel} -match glob -body { # Set up channel in thread set chan [interp eval $ida $helperscript] + interp eval $ida [list ::variable tempchan [tempchan]] + interp transfer {} $::tempchan $ida set chan [interp eval $ida { proc foo {args} { handle.initialize clear drain flush limit? read write @@ -1045,7 +1047,7 @@ test iortrans-11.1 {origin interpreter of moved transform destroyed during acces # Destroy interpreter during channel access. suicide } - set chan [chan push [tempchan] foo] + set chan [chan push $tempchan foo] fconfigure $chan -buffering none set chan }] |