diff options
author | Colin Okay <colin@cicadas.surf> | 2022-09-09 08:31:39 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-09-09 08:31:39 -0500 |
commit | 7b6f07105031ed15c65eac8f122abb3396c93419 (patch) | |
tree | 1eb26f307840449314f96ba1eab4e486c054036d | |
parent | eedfcb237f0ab49fac63c806625aedba25f0847d (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.lisp | 3 |
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 |