tests: deepen all suites (37→87 checks, 0 failures, 100% pass)

lisp/core-loop.lisp

@@ -162,3 +162,18 @@
   (passepartout:loop-process '(:type :EVENT :payload (:sensor :user-input)))
   (let ((logs (passepartout:context-get-system-logs 20)))
     (is (not (null (find-if (lambda (line) (search "CRITICAL BRAIN FAILURE" line)) logs))))))
+
+(test test-process-signal-normal-path
+  "A valid signal should pass through the pipeline without error."
+  (clrhash passepartout::*skill-registry*)
+  (handler-case
+      (let ((signal (list :type :EVENT :depth 0 :payload (list :sensor :heartbeat))))
+        (process-signal signal)
+        (pass))
+    (error (c)
+      (fail "Pipeline crashed on normal signal: ~a" c))))
+
+(test test-loop-process-returns-nil-on-deep
+  "Processing a signal at depth > 10 should return nil."
+  (let ((result (loop-process '(:type :EVENT :depth 11 :payload (:sensor :heartbeat)))))
+    (is (null result))))