File disable-localport-bsd-sockets-test.patch of Package sbcl
---
contrib/sb-bsd-sockets/tests.lisp | 50 +++++++++++++++++++-------------------
1 file changed, 25 insertions(+), 25 deletions(-)
--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -228,36 +228,36 @@
;;; the message ended up
#-win32
-(deftest simple-local-client
- (progn
+;;(deftest simple-local-client
+;; (progn
;; SunOS (Solaris) and Darwin systems don't have a socket at
;; /dev/log. We might also be building in a chroot or
;; something, so don't fail this test just because the file is
;; unavailable, or if it's a symlink to some weird character
;; device.
- (when (block nil
- (handler-bind ((sb-posix:syscall-error
- (lambda (e)
- (declare (ignore e))
- (return nil))))
- (sb-posix:s-issock
- (sb-posix::stat-mode (sb-posix:stat "/dev/log")))))
- (let ((s (make-instance 'local-socket :type :datagram)))
- (format t "Connecting ~A... " s)
- (finish-output)
- (handler-case
- (socket-connect s "/dev/log")
- (sb-bsd-sockets::socket-error ()
- (setq s (make-instance 'local-socket :type :stream))
- (format t "failed~%Retrying with ~A... " s)
- (finish-output)
- (socket-connect s "/dev/log")))
- (format t "ok.~%")
- (let ((stream (socket-make-stream s :input t :output t :buffering :none)))
- (format stream
- "<7>bsd-sockets: Don't panic. We're testing local-domain client code; this message can safely be ignored"))))
- t)
- t)
+;; (when (block nil
+;; (handler-bind ((sb-posix:syscall-error
+;; (lambda (e)
+;; (declare (ignore e))
+;; (return nil))))
+;; (sb-posix:s-issock
+;; (sb-posix::stat-mode (sb-posix:stat "/dev/log")))))
+;; (let ((s (make-instance 'local-socket :type :datagram)))
+;; (format t "Connecting ~A... " s)
+;; (finish-output)
+;; (handler-case
+;; (socket-connect s "/dev/log")
+;; (sb-bsd-sockets::socket-error ()
+;; (setq s (make-instance 'local-socket :type :stream))
+;; (format t "failed~%Retrying with ~A... " s)
+;; (finish-output)
+;; (socket-connect s "/dev/log")))
+;; (format t "ok.~%")
+;; (let ((stream (socket-make-stream s :input t :output t :buffering :none)))
+;; (format stream
+;; "<7>bsd-sockets: Don't panic. We're testing local-domain client code; this message can safely be ignored"))))
+;; t)
+;; t)
;;; these require that the internet (or bits of it, at least) is available