Posted to tcl by dgood` at Thu May 02 19:12:19 GMT 2013view raw
- root@beaglebone:~/build/tcl8.5.14/unix# make test TESTFLAGS="-file socket.test"
- LD_LIBRARY_PATH="`pwd`:${LD_LIBRARY_PATH}"; export LD_LIBRARY_PATH; \
- TCL_LIBRARY="/home/root/build/tcl8.5.14/library"; export TCL_LIBRARY; \
- ./tcltest /home/root/build/tcl8.5.14/unix/../tests/all.tcl -file socket.test
- Tests running in interp: /home/root/build/tcl8.5.14/unix/tcltest
- Tests located in: /home/root/build/tcl8.5.14/tests
- Tests running in: /home/root/build/tcl8.5.14/unix
- Temporary files stored in /home/root/build/tcl8.5.14/unix
- Test files run in separate interpreters
- Running tests that match: *
- Skipping test files that match: l.*.test
- Only running test files that match: socket.test
- Tests began at Thu May 02 19:10:07 UTC 2013
- socket.test
- ==== socket-2.10 close on accept, accepted socket lives FAILED
- ==== Contents of test case:
- set done 0
- set timer [after 20000 "set done timed_out"]
- set ss [socket -server accept 0]
- proc accept {s a p} {
- global ss
- close $ss
- fileevent $s readable "readit $s"
- fconfigure $s -trans lf
- }
- proc readit {s} {
- global done
- gets $s
- close $s
- set done 1
- }
- set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
- puts $cs hello
- close $cs
- vwait done
- after cancel $timer
- set done
- ---- Test generated error; Return code was: 1
- ---- Return code should have been one of: 0 2
- ---- errorInfo: couldn't open socket: no such device or address (Temporary failure in name resolution)
- while executing
- "socket [info hostname] [lindex [fconfigure $ss -sockname] 2]"
- ("uplevel" body line 17)
- invoked from within
- "uplevel 1 $script"
- ---- errorCode: POSIX ENXIO {no such device or address}
- ==== socket-2.10 FAILED
- Tests ended at Thu May 02 19:10:47 UTC 2013
- all.tcl: Total 60 Passed 56 Skipped 3 Failed 1
- Sourced 1 Test Files.
- Files with failing tests: socket.test
- Number of tests skipped for each constraint:
- 2 notRoot
- 1 testthread