summaryrefslogtreecommitdiffstats
path: root/tests/zlib.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-04-29 07:18:30 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-04-29 07:18:30 (GMT)
commit6dc349d4991d4514c4419c39e9918cf4c7998cfd (patch)
treee286556de6a20c057d0577d78b88e5ffb4ee0197 /tests/zlib.test
parentf8900a54702510fa7e6068221cba71c5f8920f01 (diff)
downloadtcl-6dc349d4991d4514c4419c39e9918cf4c7998cfd.zip
tcl-6dc349d4991d4514c4419c39e9918cf4c7998cfd.tar.gz
tcl-6dc349d4991d4514c4419c39e9918cf4c7998cfd.tar.bz2
Differentiate what options may be set by format type.
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 3aaca29..017243b 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -168,6 +168,26 @@ test zlib-8.4 {transformation and flushing: Bug 3517696} -setup {
catch {close $fd}
removeFile $file
} -result {}
+test zlib-8.5 {transformation and fconfigure} -setup {
+ set file [makeFile {} test.z]
+ set fd [open $file wb]
+} -constraints zlib -body {
+ list [fconfigure $fd] [zlib push compress $fd; fconfigure $fd] \
+ [chan pop $fd; fconfigure $fd]
+} -cleanup {
+ catch {close $fd}
+ removeFile $file
+} -result {{-blocking 1 -buffering full -buffersize 4096 -encoding binary -eofchar {} -translation lf} {-blocking 1 -buffering full -buffersize 4096 -encoding binary -eofchar {} -translation lf -checksum 1 -dictionary {}} {-blocking 1 -buffering full -buffersize 4096 -encoding binary -eofchar {} -translation lf}}
+test zlib-8.6 {transformation and fconfigure} -setup {
+ set file [makeFile {} test.gz]
+ set fd [open $file wb]
+} -constraints zlib -body {
+ list [fconfigure $fd] [zlib push gzip $fd; fconfigure $fd] \
+ [chan pop $fd; fconfigure $fd]
+} -cleanup {
+ catch {close $fd}
+ removeFile $file
+} -result {{-blocking 1 -buffering full -buffersize 4096 -encoding binary -eofchar {} -translation lf} {-blocking 1 -buffering full -buffersize 4096 -encoding binary -eofchar {} -translation lf -checksum 0} {-blocking 1 -buffering full -buffersize 4096 -encoding binary -eofchar {} -translation lf}}
test zlib-9.1 "check fcopy with push" -constraints zlib -setup {
set sfile [makeFile {} testsrc.gz]