You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
158 lines
6.0 KiB
158 lines
6.0 KiB
diff -r -U1 sbcl-1.2.6.orig/contrib/sb-bsd-sockets/tests.lisp sbcl-1.2.6/contrib/sb-bsd-sockets/tests.lisp
|
|
--- sbcl-1.2.6.orig/contrib/sb-bsd-sockets/tests.lisp 2014-11-30 00:56:58.000000000 +0600
|
|
+++ sbcl-1.2.6/contrib/sb-bsd-sockets/tests.lisp 2014-12-20 20:02:26.863408300 +0600
|
|
@@ -37,11 +37,11 @@
|
|
;;; for unknown protocols...
|
|
-#-(and freebsd sb-thread)
|
|
-#-(and dragonfly sb-thread)
|
|
-(deftest get-protocol-by-name/error
|
|
- (handler-case (get-protocol-by-name "nonexistent-protocol")
|
|
- (unknown-protocol ()
|
|
- t)
|
|
- (:no-error ()
|
|
- nil))
|
|
- t)
|
|
+;#-(and freebsd sb-thread)
|
|
+;#-(and dragonfly sb-thread)
|
|
+;(deftest get-protocol-by-name/error
|
|
+; (handler-case (get-protocol-by-name "nonexistent-protocol")
|
|
+; (unknown-protocol ()
|
|
+; t)
|
|
+; (:no-error ()
|
|
+; nil))
|
|
+; t)
|
|
|
|
@@ -93,13 +93,13 @@
|
|
|
|
-#-win32
|
|
-(deftest make-inet6-socket.smoke
|
|
- (let ((s (make-instance 'inet6-socket :type :stream :protocol (get-protocol-by-name "tcp"))))
|
|
- (and (> (socket-file-descriptor s) 1) t))
|
|
- t)
|
|
-
|
|
-#-win32
|
|
-(deftest make-inet6-socket.keyword
|
|
- (let ((s (make-instance 'inet6-socket :type :stream :protocol :tcp)))
|
|
- (and (> (socket-file-descriptor s) 1) t))
|
|
- t)
|
|
+;#-win32
|
|
+;(deftest make-inet6-socket.smoke
|
|
+; (let ((s (make-instance 'inet6-socket :type :stream :protocol (get-protocol-by-name "tcp"))))
|
|
+; (and (> (socket-file-descriptor s) 1) t))
|
|
+; t)
|
|
+
|
|
+;#-win32
|
|
+;(deftest make-inet6-socket.keyword
|
|
+; (let ((s (make-instance 'inet6-socket :type :stream :protocol :tcp)))
|
|
+; (and (> (socket-file-descriptor s) 1) t))
|
|
+; t)
|
|
|
|
@@ -131,22 +131,22 @@
|
|
|
|
-#-win32
|
|
-(deftest inet6-socket-bind
|
|
- (let* ((tcp (get-protocol-by-name "tcp"))
|
|
- (address (make-inet6-address "::1"))
|
|
- (s1 (make-instance 'inet6-socket :type :stream :protocol tcp))
|
|
- (s2 (make-instance 'inet6-socket :type :stream :protocol tcp)))
|
|
- (unwind-protect
|
|
- ;; Given the functions we've got so far, if you can think of a
|
|
- ;; better way to make sure the bind succeeded than trying it
|
|
- ;; twice, let me know
|
|
- (progn
|
|
- (socket-bind s1 address 0)
|
|
- (handler-case
|
|
- (let ((port (nth-value 1 (socket-name s1))))
|
|
- (socket-bind s2 address port)
|
|
- nil)
|
|
- (address-in-use-error () t)))
|
|
- (socket-close s1)
|
|
- (socket-close s2)))
|
|
- t)
|
|
+;#-win32
|
|
+;(deftest inet6-socket-bind
|
|
+; (let* ((tcp (get-protocol-by-name "tcp"))
|
|
+; (address (make-inet6-address "::1"))
|
|
+; (s1 (make-instance 'inet6-socket :type :stream :protocol tcp))
|
|
+; (s2 (make-instance 'inet6-socket :type :stream :protocol tcp)))
|
|
+; (unwind-protect
|
|
+; ;; Given the functions we've got so far, if you can think of a
|
|
+; ;; better way to make sure the bind succeeded than trying it
|
|
+; ;; twice, let me know
|
|
+; (progn
|
|
+; (socket-bind s1 address 0)
|
|
+; (handler-case
|
|
+; (let ((port (nth-value 1 (socket-name s1))))
|
|
+; (socket-bind s2 address port)
|
|
+; nil)
|
|
+; (address-in-use-error () t)))
|
|
+; (socket-close s1)
|
|
+; (socket-close s2)))
|
|
+; t)
|
|
|
|
@@ -217,33 +217,33 @@
|
|
|
|
-#-win32
|
|
-(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)
|
|
+;#-win32
|
|
+;(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)
|
|
|