File disable-localport-bsd-sockets-test.patch of Package sbcl

Overview Repositories Revisions Requests Users Attributes Meta

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
@@ -178,36 +178,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

Places

File disable-localport-bsd-sockets-test.patch of Package sbcl

Places