Revert the tests for bug#97069ea11a from socket.test, because it is hard to test with the socket command in a platform-independent way. As the bug is in tclIOChan.c and should be tested there with a dummy channel driver that can reliably reproduce the situation that suppresses the error message.

1 files changed, 0 insertions, 33 deletions

diff --git a/tests/socket.test b/tests/socket.test
index 9ffe506..0ae5abd 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -63,12 +63,6 @@
 package require tcltest 2
 namespace import -force ::tcltest::*
 
-# For some tests we need an IP address that never responds.
-# 169.254.0.0 seems to be a good candidate, because it is from a
-# reserved part of the zeroconf address space. Should it ever cause
-# any problems, a different known-unreachable adress can be set here.
-set unreachableIP 169.254.0.0
-
 # Some tests require the testthread and exec commands
 testConstraint testthread [llength [info commands testthread]]
 testConstraint exec [llength [info commands exec]]
@@ -1678,33 +1672,6 @@ test socket-13.1 {Testing use of shared socket between two threads} \
 } -cleanup {
     removeFile script
 } -result {hello 1}
-test socket-14.11.0 {pending [socket -async] and blocking [puts], no listener, no flush} \
-    -constraints {socket} \
-    -body {
-        set sock [socket -async $unreachableIP 42424]
-        fconfigure $sock -blocking 0
-        puts $sock ok
-        fileevent $sock writable {set x 1}
-        vwait x
-        close $sock
-    } -cleanup {
-        catch {close $sock}
-        unset x
-    } -result {host is unreachable} -returnCodes 1
-test socket-14.11.1 {pending [socket -async] and blocking [puts], no listener, flush} \
-    -constraints {socket} \
-    -body {
-        set sock [socket -async $unreachableIP 42424]
-        fconfigure $sock -blocking 0
-        puts $sock ok
-        flush $sock
-        fileevent $sock writable {set x 1}
-        vwait x
-        close $sock
-    } -cleanup {
-        catch {close $sock}
-        unset x
-    } -result {host is unreachable} -returnCodes 1
 
 removeFile script1
 removeFile script2