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 | c938932757c599ede8ffa7b3ece3388ca07e714c (patch) | |
| tree | 4f3d4aa8e9ef282361fe647e07015f134145f581 /tests/zlib.test | |
| parent | 9878106deb1fb3cf0c6c338f006ca9b168162eb7 (diff) | |
| download | tcl-c938932757c599ede8ffa7b3ece3388ca07e714c.zip tcl-c938932757c599ede8ffa7b3ece3388ca07e714c.tar.gz tcl-c938932757c599ede8ffa7b3ece3388ca07e714c.tar.bz2 | |
[98c8b3ec12] Make test fail in less catastrophic manner.
Diffstat (limited to 'tests/zlib.test')
| -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] |