From a1fe72fa4a3bf6c99720ce309d0611a5d941ea93 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 27 Feb 2023 20:50:33 +0000
Subject: Fix testcases

---
 tests/zlib.test | 24 ++++--------------------
 1 file changed, 4 insertions(+), 20 deletions(-)

diff --git a/tests/zlib.test b/tests/zlib.test
index 61e14bb..5312d2b 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -490,48 +490,32 @@ test zlib-8.19 {zlib transformation, bug f9eafc3886} -constraints zlib -setup {
     set file [makeFile {} test.gz]
 } -body {
     set f [zlib push gzip [open $file w] -header [list comment [string repeat A 500]]]
-    puts $f "ok"
-    close $f
-    set f [zlib push gunzip [open $file]]
-    list [gets $f] [dict get [chan configure $f -header] comment]
 } -cleanup {
-    close $f
+    catch {close $f}
     removeFile $file
 } -returnCodes 1 -result {Comment too large for zip}
 test zlib-8.20 {zlib transformation, bug f9eafc3886} -constraints zlib -setup {
     set file [makeFile {} test.gz]
 } -body {
     set f [zlib push gzip [open $file w] -header [list filename [string repeat A 5000]]]
-    puts $f "ok"
-    close $f
-    set f [zlib push gunzip [open $file]]
-    list [gets $f] [dict get [chan configure $f -header] filename]
 } -cleanup {
-    close $f
+    catch {close $f}
     removeFile $file
 } -returnCodes 1 -result {Filename too large for zip}
 test zlib-8.21 {zlib transformation, bug f9eafc3886} -constraints zlib -setup {
     set file [makeFile {} test.gz]
 } -body {
     set f [zlib push gzip [open $file w] -header [list comment \u100]]
-    puts $f "ok"
-    close $f
-    set f [zlib push gunzip [open $file]]
-    list [gets $f] [dict get [chan configure $f -header] comment]
 } -cleanup {
-    close $f
+    catch {close $f}
     removeFile $file
 } -returnCodes 1 -result {Comment contains characters > 0xFF}
 test zlib-8.22 {zlib transformation, bug f9eafc3886} -constraints zlib -setup {
     set file [makeFile {} test.gz]
 } -body {
     set f [zlib push gzip [open $file w] -header [list filename \u100]]
-    puts $f "ok"
-    close $f
-    set f [zlib push gunzip [open $file]]
-    list [gets $f] [dict get [chan configure $f -header] comment]
 } -cleanup {
-    close $f
+    catch {close $f}
     removeFile $file
 } -returnCodes 1 -result {Filename contains characters > 0xFF}
 
-- 
cgit v0.12