Tcl Source Code

Check-in [9bbee496de]
Login

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

Overview
Comment:Fix test-case numbering
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA1: 9bbee496de49bc3f4f83cac8c4522e0ea7f6248f
User & Date: jan.nijtmans 2017-05-18 13:25:17
Context
2017-05-19
14:21
fix build failure with TCL_MEM_DEBUG introduced by [8b717dc06a3e3d49] check-in: c7f8965af7 user: aspect tags: core-8-6-branch
12:53
merge 8.6 check-in: c5ac1d38b3 user: dgp tags: core-8-6-7-rc
2017-05-18
13:27
merge core-8-6-branch check-in: 91616b46d8 user: jan.nijtmans tags: trunk
13:25
Fix test-case numbering check-in: 9bbee496de user: jan.nijtmans tags: core-8-6-branch
12:09
autoconf-2.59 check-in: 74228b692b user: dgp tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/http.test.

588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
    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







|







588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
    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