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 c9954b5..420c123 100644 (file)
--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -155,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
@@ -195,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.")