Allow running tests via ASDF

s-expressionists · Jan 1, 2024 · 01cb618 · 01cb618
1 parent 92c6a9d
commit 01cb618
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 3 deletions.
diff --git a/Code/Test/clostrum-test.asd b/Code/Test/clostrum-test.asd
@@ -2,7 +2,16 @@
 
 (defsystem "clostrum-test"
   :description "Test suite for a Clostrum implementation."
-  :depends-on ("clostrum" "fiveam")
+  :depends-on ("clostrum"
+               "clostrum-basic"
+               "fiveam")
   :components
   ((:file "packages")
-   (:file "tests")))
+   (:file "tests"))
+  :perform (test-op (operation component)
+             (uiop:symbol-call
+              '#:clostrum/test '#:run-tests
+              nil ; client
+              (find-symbol "RUN-TIME-ENVIRONMENT" (find-package "CLOSTRUM-BASIC")) ; runtime env
+              nil ; evaluation env
+              (find-symbol "COMPILATION-ENVIRONMENT" (find-package "CLOSTRUM-BASIC"))))) ; compilation env
diff --git a/Code/clostrum.asd b/Code/clostrum.asd
@@ -9,4 +9,5 @@
    (:file "clostrum")
    (:file "default-methods")
    (:file "conditions")
-   (:file "documentation")))
+   (:file "documentation"))
+  :in-order-to ((test-op (test-op "clostrum-test"))))