diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-04-04 10:03:40 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-04-04 10:03:40 (GMT) |
commit | f44a15f93f1cddc576f2f31639b46500624523a4 (patch) | |
tree | cb68882ce559d423af7a6ef11394623993dad295 /tests | |
parent | 8920f52cc14f0e1b454e0295e09d98b494969b79 (diff) | |
download | tcl-f44a15f93f1cddc576f2f31639b46500624523a4.zip tcl-f44a15f93f1cddc576f2f31639b46500624523a4.tar.gz tcl-f44a15f93f1cddc576f2f31639b46500624523a4.tar.bz2 |
Was handling the flushing at the end of the stream wrongly.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/zlib.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/zlib.test b/tests/zlib.test index 93c00f1..968469d 100644 --- a/tests/zlib.test +++ b/tests/zlib.test @@ -879,8 +879,7 @@ test zlib-11.3 {Bug 3595576 variant} -setup { test zlib-12.1 {Tk Bug 9eb55debc5} -constraints zlib -setup { set stream [zlib stream compress] } -body { - set opts {} - for {set y 0} {$y < 60} {incr y} { + for {set opts {};set y 0} {$y < 60} {incr y} { for {set line {};set x 0} {$x < 100} {incr x} { append line [binary format ccc $x $y 128] } @@ -889,10 +888,11 @@ test zlib-12.1 {Tk Bug 9eb55debc5} -constraints zlib -setup { } $stream put {*}$opts $line } - string length [$stream get] + set data [$stream get] + list [string length $data] [string length [zlib decompress $data]] } -cleanup { $stream close -} -result 12026 +} -result {12026 18000} ::tcltest::cleanupTests return |