summaryrefslogtreecommitdiff
path: root/dev-lisp/sbcl/files/bsd-sockets-test-1.2.patch
diff options
context:
space:
mode:
Diffstat (limited to 'dev-lisp/sbcl/files/bsd-sockets-test-1.2.patch')
-rw-r--r--dev-lisp/sbcl/files/bsd-sockets-test-1.2.patch24
1 files changed, 24 insertions, 0 deletions
diff --git a/dev-lisp/sbcl/files/bsd-sockets-test-1.2.patch b/dev-lisp/sbcl/files/bsd-sockets-test-1.2.patch
new file mode 100644
index 000000000000..7a7b12bdea14
--- /dev/null
+++ b/dev-lisp/sbcl/files/bsd-sockets-test-1.2.patch
@@ -0,0 +1,24 @@
+diff -r -U1 sbcl-1.2.2.orig/contrib/sb-bsd-sockets/tests.lisp sbcl-1.2.2/contrib/sb-bsd-sockets/tests.lisp
+--- sbcl-1.2.2.orig/contrib/sb-bsd-sockets/tests.lisp 2014-07-28 17:15:05.000000000 +0700
++++ sbcl-1.2.2/contrib/sb-bsd-sockets/tests.lisp 2014-08-01 19:48:30.011931081 +0700
+@@ -31,11 +31,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)
+