Tcl Source Code

Check-in [e52b4963c3]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Merge 8.6
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-branch
Files: files | file ages | folders
SHA3-256: e52b4963c3e4c7689e39c0aa00e8e77049dfae96e22232d1d66a00c7fade1efe
User & Date: jan.nijtmans 2019-08-02 14:34:41
Context
2019-08-04
18:18
Merge 8.6 check-in: 1c8dd151aa user: jan.nijtmans tags: core-8-branch
2019-08-02
14:36
Merge 8.7 check-in: a52eb4d784 user: jan.nijtmans tags: tip-548
14:35
Merge 8.7 check-in: 1dcbef2063 user: jan.nijtmans tags: trunk
14:34
Merge 8.6 check-in: e52b4963c3 user: jan.nijtmans tags: core-8-branch
14:33
One more knownMsvcBug marker, for a test which sometimes fails on Travis. check-in: 43851f94b2 user: jan.nijtmans tags: core-8-6-branch
13:35
Document that the *Backslash parsing functions output maximum 4 bytes, irrespectable of the TCL_UTF_... check-in: 1f393d7d01 user: jan.nijtmans tags: core-8-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/async.test.

16
17
18
19
20
21
22

23
24
25
26
27
28
29
...
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
    namespace import -force ::tcltest::*
}

::tcltest::loadTestedCommands
catch [list package require -exact Tcltest [info patchlevel]]

testConstraint testasync [llength [info commands testasync]]


proc async1 {result code} {
    global aresult acode
    set aresult $result
    set acode $code
    return "new result"
}
................................................................................
} -result {test pattern} -cleanup {
    # give other threads some time to go way so that valgrind doesn't pick up
    # "still reachable" cases from early thread termination
    after 100
    testasync delete $hm
}
test async-4.3 {async interrupting loop-less bytecode sequence} -constraints {
    testasync
} -setup {
    set hm [testasync create async3]
} -body {
    apply [list {handle} [concat {
	global aresult
	set aresult {Async event not delivered}
	testasync marklater $handle






>







 







|







16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
...
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
    namespace import -force ::tcltest::*
}

::tcltest::loadTestedCommands
catch [list package require -exact Tcltest [info patchlevel]]

testConstraint testasync [llength [info commands testasync]]
testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}]

proc async1 {result code} {
    global aresult acode
    set aresult $result
    set acode $code
    return "new result"
}
................................................................................
} -result {test pattern} -cleanup {
    # give other threads some time to go way so that valgrind doesn't pick up
    # "still reachable" cases from early thread termination
    after 100
    testasync delete $hm
}
test async-4.3 {async interrupting loop-less bytecode sequence} -constraints {
    testasync knownMsvcBug
} -setup {
    set hm [testasync create async3]
} -body {
    apply [list {handle} [concat {
	global aresult
	set aresult {Async event not delivered}
	testasync marklater $handle