summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-23 14:04:27 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-23 14:04:27 (GMT)
commit5c9b640714bee1ace568923c48755f7b04d9fd9c (patch)
tree8b2992828b0de88a747dac0aa8cfc97311fe4d25 /tests
parent2c854d97760abc9997260aa03924af5bd0315fb8 (diff)
parent6f64df6c74bca1f0645d629ff7ed7198cdc5316e (diff)
downloadtcl-5c9b640714bee1ace568923c48755f7b04d9fd9c.zip
tcl-5c9b640714bee1ace568923c48755f7b04d9fd9c.tar.gz
tcl-5c9b640714bee1ace568923c48755f7b04d9fd9c.tar.bz2
Fix [2911139]: connect asynchronously, but without unnecessary internal waits.
Diffstat (limited to 'tests')
-rw-r--r--tests/http.test7
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/http.test b/tests/http.test
index 9861e0e..e2de7d8 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -547,11 +547,10 @@ test http-4.14 {http::Event} -body {
error "bogus return from http::geturl"
}
http::wait $token
- http::status $token
- # error code varies among platforms.
-} -returnCodes 1 -match regexp -cleanup {
+ lindex [http::error $token] 0
+} -cleanup {
catch {http::cleanup $token}
-} -result {(connect failed|couldn't open socket)}
+} -result {connect failed connection refused}
# Bogus host
test http-4.15 {http::Event} -body {
# This test may fail if you use a proxy server. That is to be