diff options
author | dgp <dgp@users.sourceforge.net> | 2016-06-28 14:26:11 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-06-28 14:26:11 (GMT) |
commit | 69471e1a17152088f9d8e90e684fd75e9fc99dfc (patch) | |
tree | 15eacd2c1053ac65edb0fe6309c2a2aac14c7f9f /tests | |
parent | 8bb026fed0f950dab2d7ce6600e7bde98edba550 (diff) | |
parent | 2453f30fb9e0fd71b6fc37ef6df3385f2efaf6d5 (diff) | |
download | tcl-69471e1a17152088f9d8e90e684fd75e9fc99dfc.zip tcl-69471e1a17152088f9d8e90e684fd75e9fc99dfc.tar.gz tcl-69471e1a17152088f9d8e90e684fd75e9fc99dfc.tar.bz2 |
merge 8.6dgp_ensemble_rewrite
Diffstat (limited to 'tests')
-rw-r--r-- | tests/zlib.test | 20 |
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] |