diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-09-12 17:52:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-09-12 17:52:19 (GMT) |
| commit | 71ccb108c1bc10efa33e1318cf6079986176e0fd (patch) | |
| tree | 7ef59966eeea0d515f691dc247fdef2915a50441 | |
| parent | 7b78279bacaab05c7ae42e7e5b487e290a02292a (diff) | |
| download | tcl-71ccb108c1bc10efa33e1318cf6079986176e0fd.zip tcl-71ccb108c1bc10efa33e1318cf6079986176e0fd.tar.gz tcl-71ccb108c1bc10efa33e1318cf6079986176e0fd.tar.bz2 | |
stop segfaultthread_leaks
| -rw-r--r-- | tests/thread.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/thread.test b/tests/thread.test index 62cdb24..865c7c6 100644 --- a/tests/thread.test +++ b/tests/thread.test @@ -23,6 +23,10 @@ testConstraint thread [expr {0 == [catch {package require Thread 2.6}]}] if {[testConstraint testthread]} { testthread errorproc ThreadError +} +if {[testConstraint thread]} { + thread::errorproc ThreadError +} proc ThreadError {id info} { global threadId threadError @@ -33,7 +37,6 @@ if {[testConstraint testthread]} { proc ThreadNullError {id info} { # ignore } -} test thread-1.1 {Tcl_ThreadObjCmd: no args} {testthread} { @@ -959,6 +962,7 @@ test thread-7.26 {cancel: send async cancel bad interp path} {thread} { # wait for other thread to signal "ready to cancel" vwait ::threadIdStarted; after 1000 catch {thread::send $serverthread {interp cancel -- bad}} msg + thread::send -async $serverthread {interp cancel -unwind} thread::release -wait $serverthread list [expr {[info exists ::threadIdStarted] ? \ $::threadIdStarted == $serverthread : 0}] \ |