1.0.4.60: More efficient structure raw slot accessors on x86-64

[sbcl.git] / contrib / sb-bsd-sockets / tests.lisp

diff --git a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp
index 72ec0f2..420c123 100644 (file)
--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -12,6 +12,22 @@
   (equalp (make-inet-address "242.1.211.3")  #(242 1 211 3))
   t)
 
+(deftest get-protocol-by-name/tcp
+    (integerp (get-protocol-by-name "tcp"))
+  t)
+
+(deftest get-protocol-by-name/udp
+  (integerp (get-protocol-by-name "udp"))
+  t)
+
+(deftest get-protocol-by-name/error
+  (handler-case (get-protocol-by-name "nonexistent-protocol")
+    (unknown-protocol ()
+      t)
+    (:no-error ()
+      nil))
+  t)
+
 (deftest make-inet-socket
   ;; make a socket
   (let ((s (make-instance 'inet-socket :type :stream :protocol (get-protocol-by-name "tcp"))))
@@ -139,6 +155,7 @@
 ;;; the message ended up
 
 (deftest simple-local-client
+    #-win32
     (progn
       ;; SunOS (Solaris) and Darwin systems don't have a socket at
       ;; /dev/log.  We might also be building in a chroot or
@@ -179,6 +196,10 @@
     (host-ent-name (get-host-by-address #(198 41 0 4)))
   "a.root-servers.net")
 
+;;; These days lots of people seem to be using DNS servers that don't
+;;; report resolving failures for non-existing domains. This test
+;;; will fail there, so we've disabled it.
+#+nil
 (deftest get-host-by-name-wrong
   (handler-case
    (get-host-by-name "foo.tninkpad.telent.net.")