projects
/
cl-mock.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Skip failing INLINE.
[cl-mock.git]
/
tests
/
functions.lisp
diff --git
a/tests/functions.lisp
b/tests/functions.lisp
index
507ae38
..
676cd84
100644
(file)
--- 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
(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))
(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,
(def-test dflet.notinline.works ()
"If a function is declared INLINE, but NOTINLINE is used locally,