diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-09 13:22:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-09 13:22:46 (GMT) |
| commit | e1b9a033d74009b6b57c6a65fe10473cd96a67dc (patch) | |
| tree | 45a1bf62fd648db3c9329cafd02c4e869a41dc5c /tests/http11.test | |
| parent | d6b88eb7975e3dc13b386679c53bb4a6f7f7f616 (diff) | |
| parent | a81159df88c89e6950dff666b7e507a0285c616a (diff) | |
| download | tcl-e1b9a033d74009b6b57c6a65fe10473cd96a67dc.zip tcl-e1b9a033d74009b6b57c6a65fe10473cd96a67dc.tar.gz tcl-e1b9a033d74009b6b57c6a65fe10473cd96a67dc.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/http11.test')
| -rw-r--r-- | tests/http11.test | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/tests/http11.test b/tests/http11.test index 4f6fb92..346e334 100644 --- a/tests/http11.test +++ b/tests/http11.test @@ -12,7 +12,7 @@ if {"::tcltest" ni [namespace children]} { namespace import -force ::tcltest::* } -package require http 2.9 +package require http 2.10 # start the server variable httpd_output @@ -87,6 +87,26 @@ proc check_crc {tok args} { } makeFile "<html><head><title>test</title></head><body><p>this is a test</p>\n[string repeat {<p>This is a tcl test file.</p>} 4192]\n</body></html>" testdoc.html + +if {![info exists ThreadLevel]} { + if {[catch {package require Thread}] == 0} { + set ValueRange {0 1 2} + } else { + set ValueRange {0 1} + } + + # For each value of ThreadLevel, source this file recursively in the + # same interpreter. + foreach ThreadLevel $ValueRange { + source [info script] + } + catch {unset ThreadLevel} + catch {unset ValueRange} + return +} + +catch {puts "==== Test with ThreadLevel $ThreadLevel ===="} +http::config -threadlevel $ThreadLevel # ------------------------------------------------------------------------- |