From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Tue, 6 Jan 2015 20:17:19 +0000 (+0000)
Subject: Skip failing INLINE.
X-Git-Tag: 1.0.1~1
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-mock.git;a=commitdiff_plain;h=eed3113a33deacf36471dc2051ccff3d41550901

Skip failing INLINE.

Which isn't honored on ACL, so just ignore it.
---

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,