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

ALIGN: Rename Protocol to Communication and unify terminology

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-13 14:17:28 -04:00
parent f4e74b732d
commit 5f86bcd8dc
84 changed files with 383 additions and 347 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tests/formal-verification-tests.lisp
View File

@@ -35,12 +35,12 @@
))
(test test-formal-gate-middleware
"Verify that the skill correctly filters actions via its symbolic function."
"Verify that the skill correctly filters actions via its deterministic function."
(let ((action '(:type :REQUEST :target :shell :payload (:cmd "nc -l 1234")))
(context '(:payload (:sensor :test))))
;; The skill should return a :log error action instead of the original request
(let* ((skill (gethash "skill-formal-verification" org-agent::*skills-registry*))
(result (funcall (org-agent::skill-symbolic-fn skill) action context)))
(result (funcall (org-agent::skill-deterministic-fn skill) action context)))
(is (not (eq result action)))
(is (eq :log (getf result :type)))
(is (search "Formal verification failed" (getf (getf result :payload) :text))))))