X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Ftests.lisp;h=6a7931efba3d0bba6ed38c58b8f2f343bbf055a1;hb=f51d3fd40bb44b518299f0ae626583a6899f7af2;hp=0959a00ff7f4393e2124c3c2a1ffb07cca459e6c;hpb=5f492c8a8eea8a407d82de104e16b7148a7f9eb8;p=sbcl.git
diff --git a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp
index 0959a00..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 tests.lisp 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 :stream)))
- (format t "~A~%" s)
- (socket-connect s "/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")
@@ -145,7 +153,7 @@ Tests are in the file tests.lisp 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