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

socket.test


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

        # address from rfc5737
        set client [socket -async 192.0.2.42 [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:
timeout: 
---- 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