summaryrefslogtreecommitdiffstats
path: root/tests/zlib.test
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)
commit05d7bc083cb71209db8d68240defdb9507842bc2 (patch)
treeb2fd35e83ca857f3bb0f9339f7540ce85f0bb603 /tests/zlib.test
parent7a3a3d5b143d56f9a3d8100a3fb7f99ce80def51 (diff)
downloadtcl-05d7bc083cb71209db8d68240defdb9507842bc2.zip
tcl-05d7bc083cb71209db8d68240defdb9507842bc2.tar.gz
tcl-05d7bc083cb71209db8d68240defdb9507842bc2.tar.bz2
two more testcases, showing that only the "deflate" and "inflate" streams don't update the checksum, other streams do.
Diffstat (limited to 'tests/zlib.test')
-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]