Posted to tcl by emiliano at Tue Jun 28 11:46:06 GMT 2011view raw

  1. socket.test
  2.  
  3.  
  4. ==== socket-14.3 [socket -async] fileevent host unreachable FAILED
  5. ==== Contents of test case:
  6.  
  7. # address from rfc5737
  8. set client [socket -async 192.0.2.42 [randport]]
  9. fileevent $client writable {set x [fconfigure $client -error]}
  10. set after [after 5000 {set x timeout}]
  11. vwait x
  12. if {$x eq "timeout"} {
  13. append x ": [fconfigure $client -error]"
  14. }
  15. set x
  16.  
  17. ---- Result was:
  18. timeout:
  19. ---- Result should have been (exact matching):
  20. host is unreachable
  21. ==== socket-14.3 FAILED
  22.  
  23.  
  24. Tests ended at Tue Jun 28 08:42:46 ART 2011
  25. all.tcl: Total 192 Passed 191 Skipped 0 Failed 1
  26. Sourced 1 Test Files.
  27. Files with failing tests: socket.test