| 123456789101112131415161718192021222324252627 |
- $OpenBSD: patch-tests_socket_tst,v 1.1 2010/08/23 16:31:33 jasper Exp $
- This test assumes that a nonblocking connect to a closed port will
- never fail, the failure will always occur when trying to read from the
- socket.
- --- tests/socket.tst.orig Wed Nov 26 01:10:25 2008
- +++ tests/socket.tst Fri Jul 30 11:16:17 2010
- @@ -515,10 +515,13 @@ T
- ;; no one should be listening on 12345
- ;; <http://article.gmane.org/gmane.lisp.clisp.general/12286>
- (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
- -(close *socket-1*) T
- +(and (setq *socket-1* nil
- + *socket-1* (socket:socket-connect
- + 12345 "localhost" :timeout 0))
- + (open-stream-p *socket-1*)
- + (read-line *socket-1*)) ERROR ; ECONNREFUSED
- +(or (null *socket-1*)
- + (close *socket-1*)) T
-
- (let ((interfaces '(nil "localhost" "0.0.0.0" "127.0.0.1")))
- (mapcar (lambda (i)
|
