diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-02-26 13:19:08 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-02-26 13:19:08 (GMT) |
| commit | 6a29cbc151dd60bc01bd1f272be2b9c48371b453 (patch) | |
| tree | fd4bf8cb1a4d8763c2e00ce84e66c9ddbd1df11e /tests/zlib.test | |
| parent | 946a00999108508220f54a76817b73262a6aa827 (diff) | |
| download | tcl-6a29cbc151dd60bc01bd1f272be2b9c48371b453.zip tcl-6a29cbc151dd60bc01bd1f272be2b9c48371b453.tar.gz tcl-6a29cbc151dd60bc01bd1f272be2b9c48371b453.tar.bz2 | |
Make tests produce more meaningful information when they fail.
Diffstat (limited to 'tests/zlib.test')
| -rw-r--r-- | tests/zlib.test | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/tests/zlib.test b/tests/zlib.test index 9497979..ba861e0 100644 --- a/tests/zlib.test +++ b/tests/zlib.test @@ -163,13 +163,19 @@ test zlib-7.9 {zlib stream finalize (bug 25842c161)} -constraints zlib -setup { } -body { $z1 put ABCDEedbca.. $z1 finalize - $z2 put -finalize ABCDEedbca.. - expr {[$z1 get] eq [$z2 get]} + zlib gunzip [$z1 get] } -cleanup { $z1 close +} -result ABCDEedbca.. +test zlib-7.9.1 {zlib stream finalize (bug 25842c161)} -constraints zlib -setup { + set z2 [zlib stream gzip] +} -body { + $z2 put -finalize ABCDEedbca.. + zlib gunzip [$z2 get] +} -cleanup { $z2 close -} -result 1 -test zlib-7.9.1 {zlib stream put -finalize (bug 25842c161)} -constraints zlib -setup { +} -result ABCDEedbca.. +test zlib-7.9.2 {zlib stream put -finalize (bug 25842c161)} -constraints zlib -setup { set c [zlib stream gzip] set d [zlib stream gunzip] } -body { @@ -182,7 +188,7 @@ test zlib-7.9.1 {zlib stream put -finalize (bug 25842c161)} -constraints zlib -s $c close $d close } -result abcdeEDCBA.. -test zlib-7.9.2 {zlib stream put; zlib stream finalize (bug 25842c161)} -constraints zlib -setup { +test zlib-7.9.3 {zlib stream put; zlib stream finalize (bug 25842c161)} -constraints zlib -setup { set c [zlib stream gzip] set d [zlib stream gunzip] } -body { |