summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-09-12 17:52:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-09-12 17:52:19 (GMT)
commit71ccb108c1bc10efa33e1318cf6079986176e0fd (patch)
tree7ef59966eeea0d515f691dc247fdef2915a50441
parent7b78279bacaab05c7ae42e7e5b487e290a02292a (diff)
downloadtcl-71ccb108c1bc10efa33e1318cf6079986176e0fd.zip
tcl-71ccb108c1bc10efa33e1318cf6079986176e0fd.tar.gz
tcl-71ccb108c1bc10efa33e1318cf6079986176e0fd.tar.bz2
stop segfaultthread_leaks
-rw-r--r--tests/thread.test6
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}] \