Tcl Source Code

Check-in [32225bcff4]
Login

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

Overview
Comment:merge trunk
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | novem
Files: files | file ages | folders
SHA1: 32225bcff4ca5077dcc2843b356ec3f1c62b2152
User & Date: dgp 2017-05-19 13:00:59
Context
2017-05-22
09:17
merge trunk check-in: 4503acbb4b user: jan.nijtmans tags: novem
2017-05-19
13:23
merge novem check-in: dcc42a5168 user: dgp tags: dgp-properbytearray
13:21
merge novem check-in: 52ffc34aff user: dgp tags: dgp-refactor
13:00
merge trunk check-in: 32225bcff4 user: dgp tags: novem
2017-05-18
13:27
merge core-8-6-branch check-in: 91616b46d8 user: jan.nijtmans tags: trunk
12:36
merge trunk check-in: 8295a7cc33 user: jan.nijtmans tags: novem
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/http.test.

584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
    set token [http::geturl //not_a_host.tcl.tk -timeout 1000 -command \#]
    http::wait $token
    http::status $token
    # error codes vary among platforms.
} -cleanup {
    catch {http::cleanup $token}
} -returnCodes 1 -match glob -result "couldn't open socket*"
test http-1.15 {Leak with Close vs Keepalive (bug [6ca52aec14]} -body {
    set before [chan names]
    set token [http::geturl $url -headers {X-Connection keep-alive}]
    http::cleanup $token
    update
    set after [chan names]
    expr {$before eq $after}
} -result 1







|







584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
    set token [http::geturl //not_a_host.tcl.tk -timeout 1000 -command \#]
    http::wait $token
    http::status $token
    # error codes vary among platforms.
} -cleanup {
    catch {http::cleanup $token}
} -returnCodes 1 -match glob -result "couldn't open socket*"
test http-4.16 {Leak with Close vs Keepalive (bug [6ca52aec14]} -body {
    set before [chan names]
    set token [http::geturl $url -headers {X-Connection keep-alive}]
    http::cleanup $token
    update
    set after [chan names]
    expr {$before eq $after}
} -result 1