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: |
e52b4963c3e4c7689e39c0aa00e8e770 |
| 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
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 |