Help save net neutrality! Learn more.
Close

Diff of /contrib/sb-bsd-sockets/tests.lisp [1d0630] .. [1483e5]  Maximize  Restore

Switch to side-by-side view

--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -2,6 +2,12 @@
   (:use "CL" "SB-BSD-SOCKETS" "SB-RT"))
 
 (in-package :sb-bsd-sockets-test)
+
+(defmacro deftest* ((name &key fails-on) form &rest results)
+  `(progn
+     (when (sb-impl::featurep ',fails-on)
+       (pushnew ',name sb-rt::*expected-failures*))
+     (deftest ,name ,form ,@results)))
 
 ;;; a real address
 (deftest make-inet-address