diff options
author | dgp <dgp@users.sourceforge.net> | 2011-08-30 21:27:06 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-08-30 21:27:06 (GMT) |
commit | 1b88664c858be778df54beeae81422a141307841 (patch) | |
tree | 89463a305352a3cbdfc235814bf081472734a5f3 /tests | |
parent | b6ebe6c7d67856b3bf5068e9ca3d1d1a3e35eda0 (diff) | |
download | tcl-1b88664c858be778df54beeae81422a141307841.zip tcl-1b88664c858be778df54beeae81422a141307841.tar.gz tcl-1b88664c858be778df54beeae81422a141307841.tar.bz2 |
Use the Thread package instead of the [testthread] command to do
dgp_thread_leaks
thread-enabled testing of the http package.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/http.test | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/tests/http.test b/tests/http.test index 1f4d8b4..e6e7649 100644 --- a/tests/http.test +++ b/tests/http.test @@ -51,14 +51,13 @@ if {![file exists $httpdFile]} { set removeHttpd 1 } -if {[info commands testthread] == "testthread" && [file exists $httpdFile]} { - set httpthread [testthread create " - source [list $httpdFile] - testthread wait - "] - testthread send $httpthread [list set port $port] - testthread send $httpthread [list set bindata $bindata] - testthread send $httpthread {httpd_init $port} +catch {package require Thread 2.6} +if {[catch {package present Thread}] == 0 && [file exists $httpdFile]} { + set httpthread [thread::create -preserved] + thread::send $httpthread [list source $httpdFile] + thread::send $httpthread [list set port $port] + thread::send $httpthread [list set bindata $bindata] + thread::send $httpthread {httpd_init $port} puts "Running httpd in thread $httpthread" } else { if {![file exists $httpdFile]} { @@ -590,9 +589,7 @@ catch {unset badurl} catch {unset port} catch {unset data} if {[info exists httpthread]} { - testthread send -async $httpthread { - testthread exit - } + thread::release $httpthread } else { close $listen } |