summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-09-04 09:36:22 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-09-04 09:36:22 (GMT)
commitf16149f5a641a30843d2bb4e3dd2734e50ecbe14 (patch)
tree4f3d4aa8e9ef282361fe647e07015f134145f581 /tests
parent5e237c28521e9a2146369913d30a10b2712b9fc2 (diff)
downloadtcl-f16149f5a641a30843d2bb4e3dd2734e50ecbe14.zip
tcl-f16149f5a641a30843d2bb4e3dd2734e50ecbe14.tar.gz
tcl-f16149f5a641a30843d2bb4e3dd2734e50ecbe14.tar.bz2
[98c8b3ec12] Make test fail in less catastrophic manner.
Diffstat (limited to 'tests')
-rw-r--r--tests/zlib.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/zlib.test b/tests/zlib.test
index 2ea185f..0712929 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -276,7 +276,10 @@ test zlib-8.10 {transformation and fconfigure} -setup {
puts -nonewline $outSide $spdyHeaders
chan pop $outSide
set compressed [read $inSide]
- catch {zlib inflate $compressed} err opt
+ catch {
+ zlib inflate $compressed
+ throw UNREACHABLE "should be unreachable"
+ } err opt
list [string length [zlib deflate $spdyHeaders]] \
[string length $compressed] \
$err [dict get $opt -errorcode]