diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-07-10 18:17:28 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-07-10 18:17:28 (GMT) |
| commit | 555d0d82c2e38d127a208977457055b5758e96cc (patch) | |
| tree | 2d3b358c5ca2114c321d25a514839d921748c698 | |
| parent | cc2e40b2d7f6b9e4f2d666d12d7651fe573857e9 (diff) | |
| download | tcl-555d0d82c2e38d127a208977457055b5758e96cc.zip tcl-555d0d82c2e38d127a208977457055b5758e96cc.tar.gz tcl-555d0d82c2e38d127a208977457055b5758e96cc.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 }] |