diff options
| author | mRnea <akannemre@gmail.com> | 2024-08-03 20:18:21 +0300 |
|---|---|---|
| committer | mRnea <akannemre@gmail.com> | 2024-08-03 20:18:21 +0300 |
| commit | d98974584558ca32db04fc6a47a692dc4ba0143d (patch) | |
| tree | 6c5bf4da730179e45dba443a216563f881db158d /test/tests.lisp | |
| parent | 2cbb10fc6b1daacfc331880ef39245307e976b1d (diff) | |
fixed "|" :string and | :identifier confusion
Diffstat (limited to 'test/tests.lisp')
| -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 |