1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
package require tcltest
namespace import ::tcltest::*
tcltest::loadTestedCommands
package require Thread
# This test used to segfault before commit f4c95731c0.
test tkt-84be1b5a73 {Ticket 84be1b5a73} -body {
set t [thread::create]
set resultvar() {}
trace add variable resultvar() write {
unset -nocomplain resultvar()
list}
proc errorproc {tid einfo} {}
thread::errorproc errorproc
thread::send -async $t {
error ""
} resultvar()
after 1000 {
set forever 1
}
vwait forever
} -returnCodes 0
|
