Tcl Source Code

Check-in [dde62ffdf8]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:[98c8b3ec12] Make test fail in less catastrophic manner.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: dde62ffdf8244a5c131c5128cdbaac7cfabc113a
User & Date: dkf 2013-09-04 09:36:22
Context
2013-09-05
12:35
Merge commits to the correct branch -- trunk check-in: c7aebcdf72 user: dgp tags: trunk
2013-09-04
13:19
merge trunk check-in: 2b0c31871e user: dgp tags: dgp-refactor
12:45
Cleaned up test command trying to make valgrind happy. check-in: dd500d1c6c user: dgp tags: mig-review
09:36
[98c8b3ec12] Make test fail in less catastrophic manner. check-in: dde62ffdf8 user: dkf tags: trunk
07:22
Fix 3 trivial (possible) errors, discovered by covertity.com check-in: 38e00f27c9 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/zlib.test.

272
273
274
275
276
277
278

279


280
281
282
283
284
285
286
} -constraints zlib -body {
    zlib push deflate $outSide -dictionary $spdyDict
    fconfigure $outSide -blocking 0 -translation binary -buffering none
    fconfigure $inSide -blocking 0 -translation binary
    puts -nonewline $outSide $spdyHeaders
    chan pop $outSide
    set compressed [read $inSide]

    catch {zlib inflate $compressed} err opt


    list [string length [zlib deflate $spdyHeaders]] \
	[string length $compressed] \
	$err [dict get $opt -errorcode]
} -cleanup {
    catch {close $outSide}
    catch {close $inSide}
} -result {254 212 {data error} {TCL ZLIB DATA}}







>
|
>
>







272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
} -constraints zlib -body {
    zlib push deflate $outSide -dictionary $spdyDict
    fconfigure $outSide -blocking 0 -translation binary -buffering none
    fconfigure $inSide -blocking 0 -translation binary
    puts -nonewline $outSide $spdyHeaders
    chan pop $outSide
    set compressed [read $inSide]
    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]
} -cleanup {
    catch {close $outSide}
    catch {close $inSide}
} -result {254 212 {data error} {TCL ZLIB DATA}}