summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-12-19 17:07:47 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-12-19 17:07:47 (GMT)
commitd8cf17b5669133edbad8eb62f9214a1a040274cc (patch)
treeb335da0c0a5f21340a46b8ea8c7587848c749e57 /tests
parent1dad0ff88fe2c9b7d7c9c48a4d619773d3968547 (diff)
downloadtcl-d8cf17b5669133edbad8eb62f9214a1a040274cc.zip
tcl-d8cf17b5669133edbad8eb62f9214a1a040274cc.tar.gz
tcl-d8cf17b5669133edbad8eb62f9214a1a040274cc.tar.bz2
* tests/io.test: Add missing [close $f] to io-73.2.
Diffstat (limited to 'tests')
-rw-r--r--tests/io.test11
1 files changed, 7 insertions, 4 deletions
diff --git a/tests/io.test b/tests/io.test
index 9f41db0..0ab8909 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: io.test,v 1.92 2008/12/11 17:30:18 andreas_kupries Exp $
+# RCS: @(#) $Id: io.test,v 1.93 2008/12/19 17:07:47 dgp Exp $
if {[catch {package require tcltest 2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2 required."
@@ -7695,15 +7695,18 @@ test io-73.1 {channel Tcl_Obj SetChannelFromAny} {} {
catch {close [lreplace [list a] 0 end]}
} {1}
-test io-73.2 {channel Tcl_Obj SetChannelFromAny, bug 2407783} {} {
+test io-73.2 {channel Tcl_Obj SetChannelFromAny, bug 2407783} -setup {
# Invalidate intrep of 'channel' Tcl_Obj when transiting between interpreters.
- interp create foo
set f [open [info script] r]
+} -body {
+ interp create foo
seek $f 0
set code [catch {interp eval foo [list seek $f 0]} msg]
# The string map converts the changing channel handle to a fixed string
list $code [string map [list $f @@] $msg]
-} {1 {can not find channel named "@@"}}
+} -cleanup {
+ close $f
+} -result {1 {can not find channel named "@@"}}
# ### ### ### ######### ######### #########