summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-01 21:34:48 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-01 21:34:48 (GMT)
commitac7af4b977dbecc4a95d4335d152756824c6e62d (patch)
treeb2fd35e83ca857f3bb0f9339f7540ce85f0bb603
parent91726f2a230497571abc2e7b8b5857e394d91337 (diff)
downloadtcl-bug_3530536.zip
tcl-bug_3530536.tar.gz
tcl-bug_3530536.tar.bz2
two more testcases, showing that only the "deflate" and "inflate" streams don't update the checksum, other streams do.bug_3530536
-rw-r--r--tests/zlib.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/zlib.test b/tests/zlib.test
index 4ed5b33..fb94c0a 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -103,6 +103,22 @@ test zlib-7.4 {zlib stream} zlib {
$s close
lappend result $data
} {{} 1 abcdeEDCBA}
+test zlib-7.5 {zlib stream} zlib {
+ set s [zlib stream gzip]
+ $s put -finalize abcdeEDCBA
+ set data [$s get]
+ set result [list [$s get] [format %x [$s checksum]]]
+ $s close
+ lappend result [zlib gunzip $data]
+} {{} ffffffffe3b38816 abcdeEDCBA}
+test zlib-7.6 {zlib stream} zlib {
+ set s [zlib stream gunzip]
+ $s put -finalize [zlib gzip abcdeEDCBA]
+ set data [$s get]
+ set result [list [$s get] [format %x [$s checksum]]]
+ $s close
+ lappend result $data
+} {{} ffffffffe3b38816 abcdeEDCBA}
test zlib-8.1 {zlib transformation} -constraints zlib -setup {
set file [makeFile {} test.gz]