summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-10-29 21:03:25 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-10-29 21:03:25 (GMT)
commita913c1c36df3e3fc5c44926e7b267593f4bfdacb (patch)
tree9f87c85fa44c3c794481215027a00069015b14de /tests
parent597d65b1e9b9c0c40782bc5ee8b372bf4bb6b995 (diff)
downloadtcl-a913c1c36df3e3fc5c44926e7b267593f4bfdacb.zip
tcl-a913c1c36df3e3fc5c44926e7b267593f4bfdacb.tar.gz
tcl-a913c1c36df3e3fc5c44926e7b267593f4bfdacb.tar.bz2
Added test for bug
Diffstat (limited to 'tests')
-rw-r--r--tests/zlib.test19
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/zlib.test b/tests/zlib.test
index 15dbb34..ae8742b 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -138,6 +138,25 @@ test zlib-7.7 {zlib stream: Bug 25842c161} -constraints zlib -body {
} -cleanup {
catch {$s close}
} -result ""
+# Also causes Tk Bug 10f2e7872b
+test zlib-7.8 {zlib stream: Bug b26e38a3e4} -constraints zlib -setup {
+ expr srand(12345)
+ set randdata {}
+ for {set i 0} {$i<6001} {incr i} {
+ append randdata [binary format c [expr {int(256*rand())}]]
+ }
+} -body {
+ set strm [zlib stream compress]
+ for {set i 1} {$i<3000} {incr i} {
+ $strm put $randdata
+ }
+ $strm put -finalize $randdata
+ set data [$strm get]
+ list [string length $data] [string length [zlib decompress $data]]
+} -cleanup {
+ catch {$strm close}
+ unset -nocomplain randdata data
+} -result {120185 18003000}
test zlib-8.1 {zlib transformation} -constraints zlib -setup {
set file [makeFile {} test.gz]