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.)
24 lines
979 B
Common Lisp
24 lines
979 B
Common Lisp
(defpackage :opencortex-pipeline-perceive-tests
|
|
(:use :cl :fiveam :opencortex)
|
|
(:export #:pipeline-perceive-suite))
|
|
|
|
(in-package :opencortex-pipeline-perceive-tests)
|
|
|
|
(def-suite pipeline-perceive-suite
|
|
:description "Test suite for Perceive pipeline")
|
|
|
|
(in-suite pipeline-perceive-suite)
|
|
|
|
(test test-perceive-gate
|
|
"Perceive gate should update the object store and normalize signal."
|
|
(clrhash opencortex::*memory*)
|
|
(let* ((signal (list :type :EVENT :payload (list :sensor :buffer-update :ast (list :type :HEADLINE :properties (list :ID "test-node" :TITLE "Test") :contents nil))))
|
|
(result (perceive-gate signal)))
|
|
(is (eq :perceived (getf result :status)))
|
|
(is (not (null (gethash "test-node" opencortex::*memory*))))))
|
|
|
|
(test test-depth-limiting
|
|
"Verify that the pipeline terminates runaway feedback loops."
|
|
(let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
|
|
(is (null (process-signal runaway-signal)))))
|