summaryrefslogtreecommitdiffstats
path: root/tests/zlib.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-06-27 14:27:43 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-06-27 14:27:43 (GMT)
commit2453f30fb9e0fd71b6fc37ef6df3385f2efaf6d5 (patch)
tree1604a59684785a9535ed443d3a1ed7b979ed4f99 /tests/zlib.test
parent2d4bd7bd8e4bc730323dccbc6b659954f3d1341c (diff)
downloadtcl-2453f30fb9e0fd71b6fc37ef6df3385f2efaf6d5.zip
tcl-2453f30fb9e0fd71b6fc37ef6df3385f2efaf6d5.tar.gz
tcl-2453f30fb9e0fd71b6fc37ef6df3385f2efaf6d5.tar.bz2
[dd260aaf72] Allow the -dictionary option to be read from a pushed transform.
Diffstat (limited to 'tests/zlib.test')
-rw-r--r--tests/zlib.test20
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/zlib.test b/tests/zlib.test
index 968469d..c9e5f10 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -401,6 +401,26 @@ test zlib-8.16 {Bug 3603553: buffer transfer with large writes} -setup {
} -cleanup {
removeFile $file
} -result 57647
+test zlib-8.17 {Bug dd260aaf: fconfigure} -setup {
+ lassign [chan pipe] inSide outSide
+} -constraints zlib -body {
+ zlib push inflate $inSide
+ zlib push deflate $outSide
+ list [chan configure $inSide -dictionary] [chan configure $outSide -dictionary]
+} -cleanup {
+ catch {close $inSide}
+ catch {close $outSide}
+} -result {{} {}}
+test zlib-8.18 {Bug dd260aaf: fconfigure} -setup {
+ lassign [chan pipe] inSide outSide
+} -constraints zlib -body {
+ zlib push inflate $inSide -dictionary "one two"
+ zlib push deflate $outSide -dictionary "one two"
+ list [chan configure $inSide -dictionary] [chan configure $outSide -dictionary]
+} -cleanup {
+ catch {close $inSide}
+ catch {close $outSide}
+} -result {{one two} {one two}}
test zlib-9.1 "check fcopy with push" -constraints zlib -setup {
set sfile [makeFile {} testsrc.gz]