cygwin-1.7 socket test patch

[Reini U. <ru...@x-...>]

I had to disable this with the new cygwin, currently in beta. Looks
like a upstream problem to me. socket handling was rewritten.

ChangeLog line:
socket.tst: cygwin 1.7 hangs on reading from socket without provider

diff -u tests/socket.tst.orig tests/socket.tst
--- tests/socket.tst.orig       2009-07-01 19:33:12.671875000 +0200
+++ tests/socket.tst    2009-07-01 23:25:21.906250000 +0200
@@ -517,7 +517,8 @@
 (socket:socket-connect 12345 "localhost" :timeout 30) ERROR ; ECONNREFUSED
 (open-stream-p (setq *socket-1* (socket:socket-connect
                                  12345 "localhost" :timeout 0))) T
-(read-line *socket-1*) ERROR ; ECONNREFUSED
+;; cygwin waits here
+#-cygwin(read-line *socket-1*) #-cygwin ERROR ; ECONNREFUSED
 (close *socket-1*) T

 (let ((interfaces '(nil "localhost" "0.0.0.0" "127.0.0.1")))


-- 
Reini Urban
http://phpwiki.org/              http://murbreak.at/