Posted to tcl by oldlaptop at Sat Jul 04 18:47:35 GMT 2026view pretty
==== http-4.14.0 http::Event FAILED
==== Contents of test case:
set token [http::geturl $badurl/?timeout=10 -timeout 10000 -command \#]
if {$token eq ""} {
error "bogus return from http::geturl"
}
http::wait $token
lindex [http::error $token] 0
---- Result was:
---- Result should have been (exact matching):
connect failed: connection refused
==== http-4.14.0 FAILED