summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-07-10 18:17:28 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-07-10 18:17:28 (GMT)
commite5eec4e2673a958ea73df11616a148c06adb3db4 (patch)
tree2d3b358c5ca2114c321d25a514839d921748c698 /tests
parent727acbea9d3864df74090ab1146fdbec3e64c225 (diff)
downloadtcl-e5eec4e2673a958ea73df11616a148c06adb3db4.zip
tcl-e5eec4e2673a958ea73df11616a148c06adb3db4.tar.gz
tcl-e5eec4e2673a958ea73df11616a148c06adb3db4.tar.bz2
makeFile / removeFile balance.
Diffstat (limited to 'tests')
-rw-r--r--tests/ioTrans.test4
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
}]