1 ;;; tests.lisp --- Test Package Definitions 2 3 ;; 4 5 ;;; Code: 6 (in-package :std-user) 7 8 (defpkg :core/tests 9 (:use :std-lisp :rt :log)) 10 11 (in-package :core/tests) 12 13 (defsuite :core) 14 (in-suite :core) 15 16 (defun run-all-tests (&optional force) 17 (mapcar (lambda (x) (do-tests x force)) (remove *test-suite* *test-suite-list*))) 18 19 (deftest all () 20 (run-all-tests))