diff options
| author | andreas_kupries <akupries@shaw.ca> | 2008-06-16 18:38:41 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2008-06-16 18:38:41 (GMT) |
| commit | 52a5824083b50f66194e6987b001cc68bc04cb10 (patch) | |
| tree | e1b153258b383abdcebe37898d8a83d878b1e976 /tests | |
| parent | 3442c49b0d59b2c46d98ba1ddcf6dc68769b6738 (diff) | |
| download | tcl-52a5824083b50f66194e6987b001cc68bc04cb10.zip tcl-52a5824083b50f66194e6987b001cc68bc04cb10.tar.gz tcl-52a5824083b50f66194e6987b001cc68bc04cb10.tar.bz2 | |
* tests/ioTrans.test (iortrans-11.*): Fixed same issue as for
iortrans.tf-11.*, cleanup of temp file, making this a followup to
the entry on 2008-06-10 by myself.
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} |