Posted to tcl by andrewsh at Fri Nov 05 14:07:57 GMT 2010view raw

  1. ==== chan-io-28.7 Tcl_CloseEx (half-close) socket FAILED
  2. ==== Contents of test case:
  3.  
  4. set ::ff [open "|[list [interpreter] $echo]" r]
  5. gets $::ff port
  6. set ::s [socket 127.0.0.1 $port]
  7. puts $::s Hey
  8. close $::s w
  9. set timer [after 1000 {set ::done Failed}]
  10. set ::acc {}
  11. fileevent $::s readable {
  12. if {[gets $::s line]<0} {
  13. set ::done Succeeded
  14. } else {
  15. lappend ::acc $line
  16. }
  17. }
  18. vwait ::done
  19. after cancel $timer
  20. close $::s r
  21. close $::ff
  22. list $::done $::acc
  23.  
  24. ---- Test generated error; Return code was: 1
  25. ---- Return code should have been one of: 0 2
  26. ---- errorInfo: couldn't open socket: connection timed out
  27. while executing
  28. "socket 127.0.0.1 $port"
  29. ("uplevel" body line 4)
  30. invoked from within
  31. "uplevel 1 $script"
  32. ---- errorCode: POSIX ETIMEDOUT {connection timed out}
  33. ==== chan-io-28.7 FAILED
  34.  
  35.