26 lines
567 B
Plaintext
26 lines
567 B
Plaintext
|
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
|