diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-07 07:12:47 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-07 07:12:47 (GMT) |
commit | ead79a6f602323485474451f0e652db7f176c902 (patch) | |
tree | a98e38ed7b315ca11a40b7b4af0b7737065ad285 /tests/zlib.test | |
parent | 392486c0fc59117de0084c05adc0a3b7e5c22125 (diff) | |
download | tcl-ead79a6f602323485474451f0e652db7f176c902.zip tcl-ead79a6f602323485474451f0e652db7f176c902.tar.gz tcl-ead79a6f602323485474451f0e652db7f176c902.tar.bz2 |
compressing transforms now work with dictionaries, even if raw
Diffstat (limited to 'tests/zlib.test')
-rw-r--r-- | tests/zlib.test | 16 |
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] |