summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-12-12 15:00:01 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-12-12 15:00:01 (GMT)
commit7fc6444f30a8f79bd34b84365947628bcb7f3be3 (patch)
treed2bc763af5b5b71e2a959035244d036084d4fa34
parent4c5f0b77fc5722c46b40a90eef3b036f035d292a (diff)
downloadtcl-7fc6444f30a8f79bd34b84365947628bcb7f3be3.zip
tcl-7fc6444f30a8f79bd34b84365947628bcb7f3be3.tar.gz
tcl-7fc6444f30a8f79bd34b84365947628bcb7f3be3.tar.bz2
Added test for gzip header access
-rw-r--r--tests/zlib.test7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/zlib.test b/tests/zlib.test
index 2e66530..7ce56f2 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: zlib.test,v 1.1 2008/12/11 14:13:33 dkf Exp $
+# RCS: @(#) $Id: zlib.test,v 1.2 2008/12/12 15:00:01 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -35,6 +35,11 @@ test zlib-3.1 {zlib deflate/inflate} {
test zlib-4.1 {zlib gzip/gunzip} {
zlib gunzip [zlib gzip abcdefghijklm]
} abcdefghijklm
+test zlib-4.2 {zlib gzip/gunzip} {
+ set s [string repeat abcdef 5]
+ list [zlib gunzip [zlib gzip $s -header {comment gorp}] -header head] \
+ [dict get $head comment] [dict get $head size]
+} {abcdefabcdefabcdefabcdefabcdef gorp 30}
test zlib-5.1 {zlib adler32} {
format %x [zlib adler32 abcdeabcdeabcdeabcdeabcdeabcde]