feat: Better handle test

cl-qob · Nov 23, 2024 · 7bcd7fb · 7bcd7fb
1 parent 5d27cd6
commit 7bcd7fb
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/lisp/core/test.lisp b/lisp/core/test.lisp
@@ -9,17 +9,23 @@
 
 ;;; Code
 
+(defun qob-test--by-name (name)
+  "Test the system's NAME."
+  (let ((system (ignore-errors (asdf:find-system name))))
+    (if system
+        (asdf:test-system name)
+        (qob-println "✗ The test system ~A not found, skipped" (qob-ansi-green name)))))
+
 (qob-start
  (let ((names (qob-args))
        (primary-test-system (qob-primary-test-system-entry)))
    (cond
      ;; If specified system(s).
      (names
-      (dolist (name names)
-        (asdf:test-system name)))
+      (mapc #'qob-test--by-name names))
      ;; Print primary system.
      (primary-test-system
-      (asdf:test-system (car primary-test-system)))
+      (qob-test--by-name (car primary-test-system)))
      ;; Print help.
      (t
       (qob-help "core/test")))))

diff --git a/test/commands/local/run.sh b/test/commands/local/run.sh
@@ -49,3 +49,4 @@ qob eval "(progn )"
 
 # Testing
 qob test
+qob test mini.system.1/tests
Original file line number	Diff line number	Diff line change
Expand Up		@@ -49,3 +49,4 @@ qob eval "(progn )"

		# Testing
		qob test
		qob test mini.system.1/tests