diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-01 21:34:48 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-01 21:34:48 (GMT) |
commit | ac7af4b977dbecc4a95d4335d152756824c6e62d (patch) | |
tree | b2fd35e83ca857f3bb0f9339f7540ce85f0bb603 | |
parent | 91726f2a230497571abc2e7b8b5857e394d91337 (diff) | |
download | tcl-ac7af4b977dbecc4a95d4335d152756824c6e62d.zip tcl-ac7af4b977dbecc4a95d4335d152756824c6e62d.tar.gz tcl-ac7af4b977dbecc4a95d4335d152756824c6e62d.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.test | 16 |
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] |