From 91726f2a230497571abc2e7b8b5857e394d91337 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 1 Jun 2012 21:09:13 +0000
Subject: bug-3530536

---
 generic/tclZlib.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/generic/tclZlib.c b/generic/tclZlib.c
index 84a81f8..0ff8b50 100644
--- a/generic/tclZlib.c
+++ b/generic/tclZlib.c
@@ -537,6 +537,7 @@ Tcl_ZlibStreamInit(
     zshPtr->currentInput = NULL;
     zshPtr->streamEnd = 0;
     memset(&zshPtr->stream, 0, sizeof(z_stream));
+    zshPtr->stream.adler = 1;
 
     /*
      * No output buffer available yet
-- 
cgit v0.12


From ac7af4b977dbecc4a95d4335d152756824c6e62d Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 1 Jun 2012 21:34:48 +0000
Subject: two more testcases, showing that only the "deflate" and "inflate"
 streams don't update the checksum, other streams do.

---
 tests/zlib.test | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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]
-- 
cgit v0.12