From 1f3f7f34ae0671eff2ac72d0e58387a8ee01b338 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 17 Oct 2024 21:23:55 +0000
Subject: [PATCH] Proposed fix for [73d5cb615e]: zlib-8.8, zlib-8.16 fail on
 Fedora 40, gcc 14.1.1

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

diff --git a/tests/zlib.test b/tests/zlib.test
index 61bddd96a09..e9565eb2ed8 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -318,13 +318,12 @@ test zlib-8.8 {transformation and fconfigure} -setup {
     chan close $outSide
     set compressed [read $inSide]
     catch {zlib decompress $compressed} err opt
-    list [string length [zlib compress $spdyHeaders]] \
-	[string length $compressed] \
+    list [string length [zlib decompress [zlib compress $spdyHeaders]]] \
 	$err [dict get $opt -errorcode] [zlib adler32 $spdyDict]
 } -cleanup {
     catch {close $outSide}
     catch {close $inSide}
-} -result {260 222 {need dictionary} {TCL ZLIB NEED_DICT 2381337010} 2381337010}
+} -result {358 {need dictionary} {TCL ZLIB NEED_DICT 2381337010} 2381337010}
 test zlib-8.9 {transformation and fconfigure} -setup {
     lassign [chan pipe] inSide outSide
     set strm [zlib stream decompress]
@@ -462,10 +461,10 @@ test zlib-8.16 {Bug 3603553: buffer transfer with large writes} -setup {
     zlib push gzip $f
     puts -nonewline $f $largeData
     close $f
-    file size $file
+    expr {[file size $file]<57648}
 } -cleanup {
     removeFile $file
-} -result 57647
+} -result 1
 test zlib-8.17 {Bug dd260aaf: fconfigure} -setup {
     lassign [chan pipe] inSide outSide
 } -constraints zlib -body {