ce0efa6ba2
- switch to new style LIB_DEPENDS/WANTLIB - move emacs lisp files to a location where emacs can find and use them from josh elasser, thanks!
27 lines
1.0 KiB
Plaintext
27 lines
1.0 KiB
Plaintext
$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)
|