From 514885892ef31d0ce71e8b1740b7ef838f459d99 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Sun, 3 Apr 2016 11:04:23 +0000
Subject: Working on fixing problem with short reads from compressing streams
 that breaks PNG creation in Tk.

---
 tests/zlib.test | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/tests/zlib.test b/tests/zlib.test
index 7a486ba..93c00f1 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -875,6 +875,24 @@ test zlib-11.3 {Bug 3595576 variant} -setup {
 } -cleanup {
     removeFile $file
 } -returnCodes error -result {can't set "noSuchNs::foo": parent namespace doesn't exist}
+
+test zlib-12.1 {Tk Bug 9eb55debc5} -constraints zlib -setup {
+    set stream [zlib stream compress]
+} -body {
+    set opts {}
+    for {set y 0} {$y < 60} {incr y} {
+	for {set line {};set x 0} {$x < 100} {incr x} {
+	    append line [binary format ccc $x $y 128]
+	}
+	if {$y == 59} {
+	    set opts -finalize
+	}
+	$stream put {*}$opts $line
+    }
+    string length [$stream get]
+} -cleanup {
+    $stream close
+} -result 12026
 
 ::tcltest::cleanupTests
 return
-- 
cgit v0.12