summaryrefslogtreecommitdiffstats
path: root/tests/http.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-04-29 20:34:26 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-04-29 20:34:26 (GMT)
commit312624b2f088518a675dfae2f008aa8542a95e40 (patch)
tree9260a34e3bf816312c9fb1423b748cc8d9bd263e /tests/http.test
parentade6c2a049cda62730309d282fdf9c65a5daf1c4 (diff)
downloadtcl-312624b2f088518a675dfae2f008aa8542a95e40.zip
tcl-312624b2f088518a675dfae2f008aa8542a95e40.tar.gz
tcl-312624b2f088518a675dfae2f008aa8542a95e40.tar.bz2
Use joinable threads to avoid thread finalization crashes.
Diffstat (limited to 'tests/http.test')
-rw-r--r--tests/http.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/http.test b/tests/http.test
index 81e16a1..2fc0a51 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -54,7 +54,7 @@ if {![file exists $httpdFile]} {
}
if {[info commands testthread] == "testthread" && [file exists $httpdFile]} {
- set httpthread [testthread create "
+ set httpthread [testthread create -joinable "
source [list $httpdFile]
testthread wait
"]
@@ -554,6 +554,7 @@ if {[info exists httpthread]} {
testthread send -async $httpthread {
testthread exit
}
+ testthread join $httpthread
} else {
close $listen
}