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


==== socket-14.3 [socket -async] fileevent host unreachable FAILED
==== Contents of test case:

        # address from rfc5737
        set client [socket -async [randport]]
        fileevent $client writable {set x [fconfigure $client -error]}
        set after [after 5000 {set x timeout}]
        vwait x
        if {$x eq "timeout"} {
            append x ": [fconfigure $client -error]"
        set x
---- Result was:
---- Result should have been (exact matching):
host is unreachable
==== socket-14.3 FAILED

Tests ended at Tue Jun 28 08:42:46 ART 2011
all.tcl:        Total   192     Passed  191     Skipped 0       Failed  1
Sourced 1 Test Files.
Files with failing tests: socket.test