Amr Gharbeia
43dbe3cf2d
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 8s
- Fix critical paren balance issues across harness/skills.org, act.org, loop.org, memory.org, and skills/self-edit|emacs-edit.org - Add :reload-skill cognitive tool for hot-reloading without restart - Add :generate-embeddings tool and self-edit hot-reload infrastructure - Wire all new skills (self-edit, emacs-edit, lisp-utils) into main ASDF - Regenerate all .lisp tangled files via emacs --batch org-babel-tangle - Add :opencortex/tests ASDF system with 14 test suites - Fix test files to compile cleanly (self-edit-tests symbol vis, etc.)
27 lines
1.1 KiB
Common Lisp
27 lines
1.1 KiB
Common Lisp
(defpackage :opencortex-pipeline-reason-tests
|
|
(:use :cl :fiveam :opencortex)
|
|
(:export #:pipeline-reason-suite))
|
|
|
|
(in-package :opencortex-pipeline-reason-tests)
|
|
|
|
(def-suite pipeline-reason-suite
|
|
:description "Test suite for Reason pipeline")
|
|
|
|
(in-suite pipeline-reason-suite)
|
|
|
|
(test test-decide-gate-safety
|
|
"Decide gate should block unsafe LLM proposals."
|
|
;; Setup: clear skills and register mock
|
|
(clrhash opencortex::*skills-registry*)
|
|
(opencortex::defskill :mock-safety
|
|
:priority 50
|
|
:trigger (lambda (ctx) t)
|
|
:probabilistic (lambda (ctx) "Mock probabilistic")
|
|
:deterministic (lambda (action ctx)
|
|
(list :type :LOG :payload (list :text "Action rejected by skill heuristics"))))
|
|
(let* ((candidate (list :type :REQUEST :payload (list :action :eval :code "(shell-command \"rm -rf /\")")))
|
|
(signal (list :type :EVENT :candidate candidate))
|
|
(result (deterministic-verify candidate signal)))
|
|
(is (eq :LOG (getf result :type)))
|
|
(is (search "Action rejected by skill heuristics" (getf (getf result :payload) :text)))))
|