projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.8.39: Mark remaining MIPS test failures as known.
[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
f0ceba2
..
66f8707
100644
(file)
--- a/
contrib/sb-bsd-sockets/tests.lisp
+++ b/
contrib/sb-bsd-sockets/tests.lisp
@@
-162,9
+162,13
@@
;; something, so don't fail this test just because the file is
;; unavailable, or if it's a symlink to some weird character
;; device.
;; 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 (and (probe-file "/dev/log")
- (sb-posix:s-issock
- (sb-posix::stat-mode (sb-posix:stat "/dev/log"))))
+ (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)
(let ((s (make-instance 'local-socket :type :datagram)))
(format t "Connecting ~A... " s)
(finish-output)
@@
-196,6
+200,10
@@
(host-ent-name (get-host-by-address #(198 41 0 4)))
"a.root-servers.net")
(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.")
(deftest get-host-by-name-wrong
(handler-case
(get-host-by-name "foo.tninkpad.telent.net.")