diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-24 14:56:10 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-24 14:56:10 (GMT) |
commit | 9df34dd7c3b9ed251e319e644d916a7c0898230e (patch) | |
tree | f90b6033f77820bd87ea88fdf29ae43ef4022bf1 /tests | |
parent | 95f644550660d554a898a5034562036f7306e9ce (diff) | |
parent | 5025e386f4e080f615186dee9b4ef82d61eea79f (diff) | |
download | tcl-bug_3601260.zip tcl-bug_3601260.tar.gz tcl-bug_3601260.tar.bz2 |
merge core-8-5-branchbug_3601260
Diffstat (limited to 'tests')
-rw-r--r-- | tests/http.test | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/http.test b/tests/http.test index 3a9d4ba..3ec0a6f 100644 --- a/tests/http.test +++ b/tests/http.test @@ -464,9 +464,8 @@ 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 -result {(connect failed|couldn't open socket)} + lindex [http::error $token] 0 +} -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 |