Move channel close commands to -cleanup so that when the (expected) e…

…rror occurs in [fcopy] we do not leave open channels lurking to interfere with later tests.
tcltk · Jul 14, 2023 · 88dd8c1 · 88dd8c1
1 parent 2018849
commit 88dd8c1
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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 {