Fix testcases

sebres · Feb 27, 2023 · b5543ba · b5543ba
1 parent 52047ea
commit b5543ba
Showing 1 changed file with 4 additions and 20 deletions.
diff --git 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}