summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-06-07 07:12:47 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-06-07 07:12:47 (GMT)
commitead79a6f602323485474451f0e652db7f176c902 (patch)
treea98e38ed7b315ca11a40b7b4af0b7737065ad285 /tests
parent392486c0fc59117de0084c05adc0a3b7e5c22125 (diff)
downloadtcl-ead79a6f602323485474451f0e652db7f176c902.zip
tcl-ead79a6f602323485474451f0e652db7f176c902.tar.gz
tcl-ead79a6f602323485474451f0e652db7f176c902.tar.bz2
compressing transforms now work with dictionaries, even if raw
Diffstat (limited to 'tests')
-rw-r--r--tests/zlib.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/zlib.test b/tests/zlib.test
index 18b6f55..5d46926 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -293,6 +293,22 @@ test zlib-8.11 {transformtion and fconfigure} -setup {
catch {close $inSide}
catch {$strm close}
} -result {358 358}
+test zlib-8.13 {transformtion and fconfigure} -setup {
+ lassign [chan pipe] inSide outSide
+ set strm [zlib stream compress]
+} -constraints {zlib knownBug} -body {
+ set data [$strm add -dictionary $spdyDict $spdyHeaders]
+ zlib push decompress $inSide
+ fconfigure $outSide -blocking 0 -translation binary
+ fconfigure $inSide -translation binary -dictionary $spdyDict
+ puts -nonewline $outSide $data
+ close $outSide
+ list [string length $spdyHeaders] [string length [read $inSide]]
+} -cleanup {
+ catch {close $outSide}
+ catch {close $inSide}
+ catch {$strm close}
+} -result {358 358}
test zlib-9.1 "check fcopy with push" -constraints zlib -setup {
set sfile [makeFile {} testsrc.gz]