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