Created
March 7, 2018 23:24
Star
You must be signed in to star a gist
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(deftest simple-local-client | |
(progn | |
;; SunOS (Solaris) and Darwin systems don't have a socket at | |
;; /dev/log. We might also be building in a chroot or | |
;; something, so don't fail this test just because the file is | |
;; unavailable, or if it's a symlink to some weird character | |
;; device. | |
(when (block nil | |
(handler-bind ((sb-posix:syscall-error | |
(lambda (e) | |
(declare (ignore e)) | |
(return nil)))) | |
(sb-posix:s-issock | |
(sb-posix::stat-mode (sb-posix:stat "/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")))) | |
t) | |
t) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment