diff options
author | dgp <dgp@users.sourceforge.net> | 2023-07-14 15:36:05 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2023-07-14 15:36:05 (GMT) |
commit | 88dd8c191144dcad7cbdf74bf67739e19adb4e52 (patch) | |
tree | c84f9c97ba540efa7985f45f84fdf86a144dae7a /tests/io.test | |
parent | 20188493aff274e9b29b7349c875d52a86954ab1 (diff) | |
download | tcl-88dd8c191144dcad7cbdf74bf67739e19adb4e52.zip tcl-88dd8c191144dcad7cbdf74bf67739e19adb4e52.tar.gz tcl-88dd8c191144dcad7cbdf74bf67739e19adb4e52.tar.bz2 |
Move channel close commands to -cleanup so that when the (expected) error
occurs in [fcopy] we do not leave open channels lurking to interfere with
later tests.
Diffstat (limited to 'tests/io.test')
-rw-r--r-- | tests/io.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index 0fed043..d79cfb8 100644 --- a/tests/io.test +++ b/tests/io.test @@ -7525,10 +7525,11 @@ test io-52.10 {TclCopyChannel & encodings} -constraints fcopy -body { fconfigure $out -translation binary fcopy $in $out - close $in - close $out file size $path(utf8-fcopy.txt) +} -cleanup { + close $in + close $out } -returnCodes 1 -match glob -result {error writing "*":\ invalid or incomplete multibyte or wide character} test io-52.11 {TclCopyChannel & encodings} -setup { |