diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-06-01 21:34:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-06-01 21:34:48 (GMT) |
| commit | f24ca385cd20ff7560d08c80460f3555f8a4a831 (patch) | |
| tree | b2fd35e83ca857f3bb0f9339f7540ce85f0bb603 /tests | |
| parent | 0553222f2df83552d08198a2d77b910a82f9ddf6 (diff) | |
| download | tcl-f24ca385cd20ff7560d08c80460f3555f8a4a831.zip tcl-f24ca385cd20ff7560d08c80460f3555f8a4a831.tar.gz tcl-f24ca385cd20ff7560d08c80460f3555f8a4a831.tar.bz2 | |
two more testcases, showing that only the "deflate" and "inflate" streams don't update the checksum, other streams do.
FossilOrigin-Name: 2cd9b5a6b62433a15bc9af3634d2f2cd3d8afdc5
Diffstat (limited to 'tests')
| -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] |