amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

refactor: implement Reactive Signal Pipeline and flatten cognitive loop

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-09 14:04:42 -04:00
parent 3ae5970ee6
commit 71401e606a
9 changed files with 497 additions and 324 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tests/chaos-qa.lisp
View File

@@ -14,8 +14,8 @@
(kernel-log "CHAOS: Injecting string as AST")
;; This should be caught by handler-case in cognitive-loop or perceive
(let ((malformed-stimulus '(:type :EVENT :payload (:sensor :buffer-update :ast "NOT A LIST"))))
(finishes (perceive malformed-stimulus))
(finishes (cognitive-loop malformed-stimulus))))
(finishes (ignore-errors (perceive-gate malformed-stimulus)))
(finishes (ignore-errors (process-signal malformed-stimulus)))))
(test deep-recursion-stimulus
"Verify that deep recursion is halted by the recursion breaker."
@@ -29,8 +29,8 @@
:symbolic (lambda (action ctx)
`(:type :EVENT :payload (:sensor :infinite-trigger))))
;; The cognitive-loop has (when (> depth 10) ...) check.
(finishes (cognitive-loop '(:type :EVENT :payload (:sensor :infinite-trigger)))))
;; The pipeline has (when (> depth 10) ...) check.
(finishes (process-signal '(:type :EVENT :payload (:sensor :infinite-trigger)))))
(test missing-actuator-dispatch
"Verify that dispatching to a non-existent actuator is handled."