diff options
| author | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-02-11 07:18:08 (GMT) |
|---|---|---|
| committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-02-11 07:18:08 (GMT) |
| commit | a638162ed46879635a4c454e2de32f13ea424632 (patch) | |
| tree | abe6b40547a70608a304b14a1eb4df9b5c1c4e2c /tests/zlib.test | |
| parent | c77bd091dfde613bacdbbf0e013caeb016baf341 (diff) | |
| download | tcl-a638162ed46879635a4c454e2de32f13ea424632.zip tcl-a638162ed46879635a4c454e2de32f13ea424632.tar.gz tcl-a638162ed46879635a4c454e2de32f13ea424632.tar.bz2 | |
better tests for finalization
Diffstat (limited to 'tests/zlib.test')
| -rw-r--r-- | tests/zlib.test | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/zlib.test b/tests/zlib.test index 3ee7a45..9497979 100644 --- a/tests/zlib.test +++ b/tests/zlib.test @@ -169,6 +169,30 @@ test zlib-7.9 {zlib stream finalize (bug 25842c161)} -constraints zlib -setup { $z1 close $z2 close } -result 1 +test zlib-7.9.1 {zlib stream put -finalize (bug 25842c161)} -constraints zlib -setup { + set c [zlib stream gzip] + set d [zlib stream gunzip] +} -body { + $c put abcdeEDCBA.. + $c finalize + $d put [$c get] + $d finalize + $d get +} -cleanup { + $c close + $d close +} -result abcdeEDCBA.. +test zlib-7.9.2 {zlib stream put; zlib stream finalize (bug 25842c161)} -constraints zlib -setup { + set c [zlib stream gzip] + set d [zlib stream gunzip] +} -body { + $c put -finalize abcdeEDCBA.. + $d put -finalize [$c get] + $d get +} -cleanup { + $c close + $d close +} -result abcdeEDCBA.. test zlib-8.1 {zlib transformation} -constraints zlib -setup { set file [makeFile {} test.gz] |