Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge 8.6 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
e52b4963c3e4c7689e39c0aa00e8e770 |
| User & Date: | jan.nijtmans 2019-08-02 14:34:41.014 |
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
Changes to tests/async.test.
| ︙ | ︙ | |||
16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
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"
}
| > | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
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"
}
|
| ︙ | ︙ | |||
198 199 200 201 202 203 204 |
} -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 {
| | | 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 |
} -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
|
| ︙ | ︙ |