summaryrefslogtreecommitdiffstats
path: root/tests/zlib.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2017-02-26 13:19:08 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2017-02-26 13:19:08 (GMT)
commit6a29cbc151dd60bc01bd1f272be2b9c48371b453 (patch)
treefd4bf8cb1a4d8763c2e00ce84e66c9ddbd1df11e /tests/zlib.test
parent946a00999108508220f54a76817b73262a6aa827 (diff)
downloadtcl-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.test16
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 {