tests: standardize on embedded tests (migrate all from tests/ to lisp/ sources)

lisp/system-diagnostics.lisp

@@ -172,6 +172,34 @@
       (uiop:quit 0)
       (uiop:quit 1)))
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (ql:quickload :fiveam :silent t))
+
+(defpackage :passepartout-diagnostics-tests
+  (:use :cl :fiveam :passepartout)
+  (:export #:diagnostics-suite))
+
+(in-package :passepartout-diagnostics-tests)
+
+(def-suite diagnostics-suite :description "Verification of the System Diagnostics logic")
+(in-suite diagnostics-suite)
+
+(test test-diagnostics-dependency-fail
+  "Verify that missing binaries are correctly identified as failures."
+  (let ((passepartout::*diagnostics-binaries* '("non-existent-binary-123")))
+    (is (null (diagnostics-dependencies-check)))))
+
+(test test-diagnostics-env-fail
+  "Verify that an invalid MEMEX_DIR triggers a critical failure."
+  (let ((old-m (uiop:getenv "MEMEX_DIR"))
+        (old-d (uiop:getenv "PASSEPARTOUT_DATA_DIR")))
+    (unwind-protect
+         (progn
+           (setf (uiop:getenv "MEMEX_DIR") "/non/existent/path/999")
+           (is (null (diagnostics-env-check))))
+      (setf (uiop:getenv "MEMEX_DIR") (or old-m ""))
+      (setf (uiop:getenv "PASSEPARTOUT_DATA_DIR") (or old-d "")))))
+
 (defskill :passepartout-system-diagnostics
   :priority 100
   :trigger (lambda (ctx) (eq (getf (getf ctx :payload) :sensor) :heartbeat))