diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-09 17:52:05 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-09 17:52:05 (GMT) |
commit | 8f7427729b4a792c9c2461dd4218643694863cf8 (patch) | |
tree | 3fbea2a28463e6f3874f55150f197aff99244f5c /tests | |
parent | ead79a6f602323485474451f0e652db7f176c902 (diff) | |
download | tcl-8f7427729b4a792c9c2461dd4218643694863cf8.zip tcl-8f7427729b4a792c9c2461dd4218643694863cf8.tar.gz tcl-8f7427729b4a792c9c2461dd4218643694863cf8.tar.bz2 |
tidy up, fix test
Diffstat (limited to 'tests')
-rw-r--r-- | tests/zlib.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/zlib.test b/tests/zlib.test index 5d46926..9058817 100644 --- a/tests/zlib.test +++ b/tests/zlib.test @@ -293,15 +293,15 @@ 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 { +test zlib-8.12 {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] +} -constraints zlib -body { + $strm put -dictionary $spdyDict -finalize $spdyHeaders zlib push decompress $inSide fconfigure $outSide -blocking 0 -translation binary fconfigure $inSide -translation binary -dictionary $spdyDict - puts -nonewline $outSide $data + puts -nonewline $outSide [$strm get] close $outSide list [string length $spdyHeaders] [string length [read $inSide]] } -cleanup { |