diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-22 20:27:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-22 20:27:59 (GMT) |
| commit | 421cb095720c641b6cef201242354a338207d3c3 (patch) | |
| tree | 376b30b6fcfff8ed2d90f77837b5018081403808 /tests/ioTrans.test | |
| parent | 18b04fd803de5db258180ee7d4d4d128a77fb03d (diff) | |
| parent | 91e311e52d7fd08f0eb70ddd211e5aa51a5e2d22 (diff) | |
| download | tcl-421cb095720c641b6cef201242354a338207d3c3.zip tcl-421cb095720c641b6cef201242354a338207d3c3.tar.gz tcl-421cb095720c641b6cef201242354a338207d3c3.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/ioTrans.test')
| -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 }] |