X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-bsd-sockets%2Ftests.lisp;h=804fe5ba0b50ddec2948793d526b25cae9e39849;hb=d61775ee52828f379eb6acedca421d5a55bfa2bd;hp=40af6c25ee0366b7499df8d7fc1fe80e60fb2588;hpb=c8b71999fd488e73ea2c673e3c34245d45238f51;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp
index 40af6c2..804fe5b 100644
--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -128,21 +128,19 @@ Tests are in the file <tt>tests.lisp</tt> and also make good examples.
 	(> (length data) 0))))
   t)
 
-#||
-<h2>Unix-domain sockets</h2>
-
-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
-||#
-
-(deftest simple-unix-client
-    (let ((s (make-instance 'unix-socket :type :datagram)))
+;;; 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")
       (let ((stream (socket-make-stream s :input t :output t :buffering :none)))
 	(format stream
-		"<7>bsd-sockets: Don't panic.  We're testing unix-domain client code; this message can safely be ignored")
+		"<7>bsd-sockets: Don't panic.  We're testing local-domain client code; this message can safely be ignored")
 	t))
   t)