summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-04-03 11:04:23 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-04-03 11:04:23 (GMT)
commit514885892ef31d0ce71e8b1740b7ef838f459d99 (patch)
treeb7295bf32c8dd54041a5ddc8bc1d58713e0cda4b /tests
parentaa0288d6918b42ae6b13f1cd94180e28c4ce3750 (diff)
downloadtcl-514885892ef31d0ce71e8b1740b7ef838f459d99.zip
tcl-514885892ef31d0ce71e8b1740b7ef838f459d99.tar.gz
tcl-514885892ef31d0ce71e8b1740b7ef838f459d99.tar.bz2
Working on fixing problem with short reads from compressing streams that breaks PNG creation in Tk.
Diffstat (limited to 'tests')
-rw-r--r--tests/zlib.test18
1 files changed, 18 insertions, 0 deletions
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