diff options
author | max <max@tclers.tk> | 2017-04-05 14:47:45 (GMT) |
---|---|---|
committer | max <max@tclers.tk> | 2017-04-05 14:47:45 (GMT) |
commit | 4f20b26224ed27d2a75607416198e615bee7e128 (patch) | |
tree | 57abcc29f7295ecf5cd79a264ec872474b0813e0 /tests/httpold.test | |
parent | 42f3b8e10cbe3342ebc2ca136374b4c5377dc54c (diff) | |
download | tcl-4f20b26224ed27d2a75607416198e615bee7e128.zip tcl-4f20b26224ed27d2a75607416198e615bee7e128.tar.gz tcl-4f20b26224ed27d2a75607416198e615bee7e128.tar.bz2 |
Use a random unused port for the dummy http server to avoid conflicts
with local services running on port 8010.
Diffstat (limited to 'tests/httpold.test')
-rw-r--r-- | tests/httpold.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/httpold.test b/tests/httpold.test index 5995bed..ab26613 100644 --- a/tests/httpold.test +++ b/tests/httpold.test @@ -1,3 +1,4 @@ +# -*- tcl -*- # Commands covered: http_config, http_get, http_wait, http_reset # # This file contains a collection of tests for the http script library. @@ -41,10 +42,9 @@ catch {unset data} ## source [file join [file dirname [info script]] httpd] -set port 8010 -if [catch {httpd_init $port} listen] { +if [catch {httpd_init 0} listen] { puts "Cannot start http server, http test skipped" - unset port + catch {unset port} ::tcltest::cleanupTests return } |