summaryrefslogtreecommitdiffstats
path: root/tests/ioTrans.test
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2008-06-16 18:38:41 (GMT)
committerandreas_kupries <akupries@shaw.ca>2008-06-16 18:38:41 (GMT)
commit52a5824083b50f66194e6987b001cc68bc04cb10 (patch)
treee1b153258b383abdcebe37898d8a83d878b1e976 /tests/ioTrans.test
parent3442c49b0d59b2c46d98ba1ddcf6dc68769b6738 (diff)
downloadtcl-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/ioTrans.test')
-rw-r--r--tests/ioTrans.test4
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}