Posted to tcl by oldlaptop at Sat Jul 04 18:47:35 GMT 2026view raw

  1. ==== http-4.14.0 http::Event FAILED
  2. ==== Contents of test case:
  3.  
  4. set token [http::geturl $badurl/?timeout=10 -timeout 10000 -command \#]
  5. if {$token eq ""} {
  6. error "bogus return from http::geturl"
  7. }
  8. http::wait $token
  9. lindex [http::error $token] 0
  10.  
  11. ---- Result was:
  12.  
  13. ---- Result should have been (exact matching):
  14. connect failed: connection refused
  15. ==== http-4.14.0 FAILED
  16.  

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week