socket.test results

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