(defpackage "SB-BSD-SOCKETS-TEST"
- (:use "CL" "SB-BSD-SOCKETS" "RT"))
+ (:use "CL" "SB-BSD-SOCKETS" "SB-RT"))
#||
(> (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
-||#
+;;; 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)))
+#-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)