diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/tests.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test/tests.lisp b/test/tests.lisp index c36a5f2..2dfb4cb 100644 --- a/test/tests.lisp +++ b/test/tests.lisp @@ -68,9 +68,11 @@ (delete-file (probe-file (drop-file-type abs-path))))) successful)) -(defun run-tests () +(defun run-tests (&optional (ignore-err nil)) (loop for success? - in (mapcar #'run-test + in (mapcar (lambda (file) (if (not ignore-err) + (run-test file) + (ignore-errors (run-test file)))) (remove-if-not (lambda (file) (string= "lorth" (pathname-type file))) (cl-fad:list-directory |