diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-04-29 20:34:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-04-29 20:34:26 (GMT) |
| commit | d3e04b3a7681476889b2c9a75deed8c65556f178 (patch) | |
| tree | 9260a34e3bf816312c9fb1423b748cc8d9bd263e | |
| parent | 09d67aff952d446995a83642313ac2c780b92319 (diff) | |
| download | tcl-d3e04b3a7681476889b2c9a75deed8c65556f178.zip tcl-d3e04b3a7681476889b2c9a75deed8c65556f178.tar.gz tcl-d3e04b3a7681476889b2c9a75deed8c65556f178.tar.bz2 | |
Use joinable threads to avoid thread finalization crashes.
| -rw-r--r-- | tests/http.test | 3 |
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 } |