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 | e148310a7bd78ba5ddbb5d2722acab3d74d58399 (patch) | |
| tree | dcd63dcfb36e95741a3c4c89b7a852034b2a9011 /tests/zlib.test | |
| parent | 2b24dada59c274d04559672a8a8f57f2556daa00 (diff) | |
| parent | 802ec0e3d4c4d4c8fc04f6ba3b83eafab8cf8255 (diff) | |
| download | tcl-e148310a7bd78ba5ddbb5d2722acab3d74d58399.zip tcl-e148310a7bd78ba5ddbb5d2722acab3d74d58399.tar.gz tcl-e148310a7bd78ba5ddbb5d2722acab3d74d58399.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] |