From 88dd8c191144dcad7cbdf74bf67739e19adb4e52 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 14 Jul 2023 15:36:05 +0000
Subject: 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.

---
 tests/io.test | 5 +++--
 1 file 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 {
-- 
cgit v0.12