X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffunctions.lisp;h=676cd84a60206664366ef46323181e5b76685ec6;hb=eed3113a33deacf36471dc2051ccff3d41550901;hp=507ae38e88e72f932783d2df22a687d1416dd5a3;hpb=8d15969371cd71187f115f7c39de22aaa1f8f733;p=cl-mock.git

diff --git a/tests/functions.lisp b/tests/functions.lisp
index 507ae38..676cd84 100644
--- a/tests/functions.lisp
+++ b/tests/functions.lisp
@@ -18,9 +18,11 @@
 
 (def-test dflet.inline.works ()
   "If a function is declared INLINE (and that request is honored), DFLET
-won't work."
+won't work.  Not a failure, since we can't force INLINE."
   (dflet ((foo/inline () 42))
-    (is (eql 23 (foo/inline)))))
+    (if (eql 23 (foo/inline))
+        (pass "INLINE declaration honored, so DFLET fails")
+        (skip "INLINE declaration not honored, so DFLET works"))))
 
 (def-test dflet.notinline.works ()
   "If a function is declared INLINE, but NOTINLINE is used locally,