X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=contrib%2Fsb-bsd-sockets%2Ftests.lisp;h=a510c9f3ecb903a88cfb63ee7f0f5aa78ab7899f;hb=22c1de0a40df83bb5628974010a879cb2c17ff53;hp=c6c3c763c5837980e88ce97e4b4ef5099878cb14;hpb=bb7c5beef3a2c45f0ff99f8038409dc4787aa295;p=sbcl.git
diff --git a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp
index c6c3c76..a510c9f 100644
--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -1,5 +1,5 @@
(defpackage "SB-BSD-SOCKETS-TEST"
- (:use "CL" "SB-BSD-SOCKETS" "RT"))
+ (:use "CL" "SB-BSD-SOCKETS" "SB-RT"))
#||
@@ -128,18 +128,24 @@ Tests are in the file tests.lisp and also make good examples.
(> (length data) 0))))
t)
-#||
-
Local-domain sockets
+;;; A fairly rudimentary test that connects to the syslog socket and
+;;; sends a message. Priority 7 is kern.debug; you'll probably want
+;;; to look at /etc/syslog.conf or local equivalent to find out where
+;;; the message ended up
-A fairly rudimentary test that connects to the syslog socket and sends a
-message. Priority 7 is kern.debug; you'll probably want to look at
-/etc/syslog.conf or local equivalent to find out where the message ended up
-||#
#-sunos
(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")
@@ -147,7 +153,7 @@ message. Priority 7 is kern.debug; you'll probably want to look at
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