diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-04 09:36:22 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-04 09:36:22 (GMT) |
| commit | f16149f5a641a30843d2bb4e3dd2734e50ecbe14 (patch) | |
| tree | 4f3d4aa8e9ef282361fe647e07015f134145f581 | |
| parent | 5e237c28521e9a2146369913d30a10b2712b9fc2 (diff) | |
| download | tcl-f16149f5a641a30843d2bb4e3dd2734e50ecbe14.zip tcl-f16149f5a641a30843d2bb4e3dd2734e50ecbe14.tar.gz tcl-f16149f5a641a30843d2bb4e3dd2734e50ecbe14.tar.bz2 | |
[98c8b3ec12] Make test fail in less catastrophic manner.
| -rw-r--r-- | tests/zlib.test | 5 |
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] |