Posted to tcl by jdc at Fri Nov 05 13:39:06 GMT 2010view raw

  1. ==== socket_inet6-2.1 tcp connection FAILED
  2. ==== Contents of test case:
  3.  
  4. # $x == "ready" at this point
  5. set sock [socket $localhost $listen]
  6. lappend x [gets $f]
  7. close $sock
  8. lappend x [gets $f]
  9.  
  10. ---- Result was:
  11. ready timed_out {}
  12. ---- Result should have been (exact matching):
  13. ready done {}
  14. ==== socket_inet6-2.1 FAILED
  15.  
  16.  
  17.  
  18. ==== socket_inet6-2.2 tcp connection with client port specified FAILED
  19. ==== Contents of test case:
  20.  
  21. # $x == "ready" at this point
  22. set sock [socket -myport $port $localhost $listen]
  23. puts $sock hello
  24. flush $sock
  25. lappend x [expr {[gets $f] eq "hello $port"}]
  26. close $sock
  27. return $x
  28.  
  29. ---- Result was:
  30. ready 0
  31. ---- Result should have been (exact matching):
  32. ready 1
  33. ==== socket_inet6-2.2 FAILED
  34.  
  35.  
  36.  
  37. ==== socket_inet6-2.3 tcp connection with client interface specified FAILED
  38. ==== Contents of test case:
  39.  
  40. # $x == "ready" at this point
  41. set sock [socket -myaddr $localhost $localhost $listen]
  42. puts $sock hello
  43. flush $sock
  44. lappend x [gets $f]
  45. close $sock
  46. return $x
  47.  
  48. ---- Result was:
  49. ready {}
  50. ---- Result should have been (exact matching):
  51. ready {hello ::1}
  52. ==== socket_inet6-2.3 FAILED