Posted to tcl by dgood` at Thu May 02 19:12:19 GMT 2013view raw

  1. root@beaglebone:~/build/tcl8.5.14/unix# make test TESTFLAGS="-file socket.test"
  2. LD_LIBRARY_PATH="`pwd`:${LD_LIBRARY_PATH}"; export LD_LIBRARY_PATH; \
  3. TCL_LIBRARY="/home/root/build/tcl8.5.14/library"; export TCL_LIBRARY; \
  4. ./tcltest /home/root/build/tcl8.5.14/unix/../tests/all.tcl -file socket.test
  5. Tests running in interp: /home/root/build/tcl8.5.14/unix/tcltest
  6. Tests located in: /home/root/build/tcl8.5.14/tests
  7. Tests running in: /home/root/build/tcl8.5.14/unix
  8. Temporary files stored in /home/root/build/tcl8.5.14/unix
  9. Test files run in separate interpreters
  10. Running tests that match: *
  11. Skipping test files that match: l.*.test
  12. Only running test files that match: socket.test
  13. Tests began at Thu May 02 19:10:07 UTC 2013
  14. socket.test
  15.  
  16.  
  17. ==== socket-2.10 close on accept, accepted socket lives FAILED
  18. ==== Contents of test case:
  19.  
  20. set done 0
  21. set timer [after 20000 "set done timed_out"]
  22. set ss [socket -server accept 0]
  23. proc accept {s a p} {
  24. global ss
  25. close $ss
  26. fileevent $s readable "readit $s"
  27. fconfigure $s -trans lf
  28. }
  29. proc readit {s} {
  30. global done
  31. gets $s
  32. close $s
  33. set done 1
  34. }
  35. set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
  36. puts $cs hello
  37. close $cs
  38. vwait done
  39. after cancel $timer
  40. set done
  41.  
  42. ---- Test generated error; Return code was: 1
  43. ---- Return code should have been one of: 0 2
  44. ---- errorInfo: couldn't open socket: no such device or address (Temporary failure in name resolution)
  45. while executing
  46. "socket [info hostname] [lindex [fconfigure $ss -sockname] 2]"
  47. ("uplevel" body line 17)
  48. invoked from within
  49. "uplevel 1 $script"
  50. ---- errorCode: POSIX ENXIO {no such device or address}
  51. ==== socket-2.10 FAILED
  52.  
  53.  
  54. Tests ended at Thu May 02 19:10:47 UTC 2013
  55. all.tcl: Total 60 Passed 56 Skipped 3 Failed 1
  56. Sourced 1 Test Files.
  57. Files with failing tests: socket.test
  58. Number of tests skipped for each constraint:
  59. 2 notRoot
  60. 1 testthread
  61.