diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-05 16:05:36 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-05 16:05:36 (GMT) |
| commit | e6d8763bc8e167637a136b863e0728665471eff3 (patch) | |
| tree | dcd63dcfb36e95741a3c4c89b7a852034b2a9011 /tests/zlib.test | |
| parent | c69794cc05d5ab01537ede052537fa25613c01c4 (diff) | |
| parent | 7d602745337ea00ec3bd5cbb4efcd1c0e3379fbb (diff) | |
| download | tcl-e6d8763bc8e167637a136b863e0728665471eff3.zip tcl-e6d8763bc8e167637a136b863e0728665471eff3.tar.gz tcl-e6d8763bc8e167637a136b863e0728665471eff3.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/zlib.test')
| -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 5935fbe..642b2a4 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] +} {{} 69f34b6a 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 +} {{} 69f34b6a abcdeEDCBA..} test zlib-8.1 {zlib transformation} -constraints zlib -setup { set file [makeFile {} test.gz] |