aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-09-09 08:31:39 -0500
committerColin Okay <colin@cicadas.surf>2022-09-09 08:31:39 -0500
commit7b6f07105031ed15c65eac8f122abb3396c93419 (patch)
tree1eb26f307840449314f96ba1eab4e486c054036d
parenteedfcb237f0ab49fac63c806625aedba25f0847d (diff)
Modify: Only call :program type tests when function is bound
This allows for a separation of long test functions into a separate system that need not be shipped with the code being tested. That is, the compiled tests can be separated from the compiled code that they are testing. With other sorts of testiere test forms, this is already the case since they run during compilation.
-rw-r--r--testiere.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/testiere.lisp b/testiere.lisp
index 3963351..8e1d40f 100644
--- a/testiere.lisp
+++ b/testiere.lisp
@@ -16,7 +16,8 @@
(condition (c) (declare (ignore c)) nil))))
((list* :program function-name args)
- `(funcall ',function-name ,@args))
+ `(when (fboundp ',function-name)
+ (funcall ',function-name ,@args)))
((list* :with-stubs redefs more-specs)
(let* ((assoc-vars