diff options
Diffstat (limited to 'tests')
| -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 3bee19e..b607885 100644 --- a/tests/ioTrans.test +++ b/tests/ioTrans.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: ioTrans.test,v 1.2 2008/06/10 18:06:39 andreas_kupries Exp $ +# RCS: @(#) $Id: ioTrans.test,v 1.3 2008/06/16 18:38:42 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -712,6 +712,7 @@ test iortrans-11.0 {origin interpreter of moved transform gone} -match glob -bod lappend res [catch {interp eval $idb [list close $chan]} msg] $msg #lappend res [interp eval $ida {set res}] # actions: clear|write|clear|write|clear|flush|limit?|drain|flush + tempdone set res # The 'tell' is ok, as it passed through the transform to the base # channel without invoking the transform handler. @@ -757,6 +758,7 @@ test iortrans-11.1 {origin interpreter of moved transform destroyed during acces catch { puts $chan shoo } res set res }] + tempdone set res } -constraints {testchannel impossible} \ -result {Owner lost} |