X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Ftests.lisp;h=6a7931efba3d0bba6ed38c58b8f2f343bbf055a1;hb=1b650be8b800cf96e2c268ae317fb26d0bf36827;hp=0d6f3fcaeb6fde63ae8eb4c084e24731c6632a93;hpb=65a01dae3d437a48e8dd0d051a446245f9e29929;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp
index 0d6f3fc..6a7931e 100644
--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -133,11 +133,19 @@ Tests are in the file <tt>tests.lisp</tt> and also make good examples.
 ;;; to look at /etc/syslog.conf or local equivalent to find out where
 ;;; the message ended up
 
-#-sunos
+#-(or sunos darwin)
 (deftest simple-local-client
     (let ((s (make-instance 'local-socket :type :datagram)))
-      (format t "~A~%" s)
-      (socket-connect s "/dev/log")
+      (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")
@@ -145,7 +153,7 @@ Tests are in the file <tt>tests.lisp</tt> and also make good examples.
   t)
 
 
-;;; these require that the internet (or bits of it, atleast) is available
+;;; these require that the internet (or bits of it, at least) is available
 
 #+internet-available
 (deftest get-host-by-name