#+TITLE: System Manifest (manifest.org) #+AUTHOR: Agent #+FILETAGS: :harness:manifest: #+STARTUP: content * Overview The *System Manifest* defines the structural components of the OpenCortex. It serves as the primary system definition for ASDF and the test orchestrator. * Implementation ** Main System #+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/opencortex.asd") (defsystem :opencortex :name "opencortex" :author "Amr Gharbeia" :version "0.2.0" :license "AGPLv3" :description "The Probabilistic-Deterministic Lisp Machine" :depends-on (:usocket :bordeaux-threads :dexador :uiop :cl-dotenv :cl-ppcre :hunchentoot :ironclad :str :cl-json :uuid) :serial t :components ((:file "package (:file "skills (:file "communication (:file "communication-validator (:file "memory (:file "context (:file "perceive (:file "reason (:file "act (:file "loop)) #+end_src ** Test System #+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/opencortex.asd") (defsystem :opencortex/tests :depends-on (:opencortex :fiveam) :components ((:file "pipeline-act-tests (:file "boot-sequence-tests (:file "immune-system-tests (:file "memory-tests (:file "pipeline-perceive-tests (:file "pipeline-reason-tests (:file "peripheral-vision-tests (:file "emacs-edit-tests (:file "engineering-standards-tests (:file "lisp-utils-tests (:file "literate-programming-tests (:file "self-edit-tests (:file "tool-permissions-tests (:file "diagnostics-tests (:file "config-manager-tests (:file "gateway-manager-tests (:file "tui-tests (:file "llm-gateway-tests)) #+end_src ** TUI System #+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/opencortex.asd") (defsystem :opencortex/tui :depends-on (:opencortex :croatoan :usocket :bordeaux-threads) :components ((:file "tui-client)) #+end_src ** Test Orchestrator #+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/harness/run-all-tests.lisp") (load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))) (let ((oc-dir (or (getenv "OC_DATA_DIR (namestring (truename "./)))) (push (uiop:ensure-directory-pathname oc-dir) asdf:*central-registry*)) (ql:quickload '(:opencortex :opencortex/tui :opencortex/tests) :silent t) (format t "~%=== Initializing Skills BEFORE loading tests ===~% (opencortex:initialize-all-skills) (format t "~%=== Running ALL Test Suites ===~% (dolist (suite-spec '(("OPENCORTEX-BOOT-TESTS" "BOOT-SUITE ("OPENCORTEX-COMMUNICATION-TESTS" "COMMUNICATION-PROTOCOL-SUITE ("OPENCORTEX-PIPELINE-ACT-TESTS" "PIPELINE-ACT-SUITE ("OPENCORTEX-MEMORY-TESTS" "MEMORY-SUITE ("OPENCORTEX-ENGINEERING-STANDARDS-TESTS" "ENGINEERING-STANDARDS-SUITE ("OPENCORTEX-DIAGNOSTICS-TESTS" "DIAGNOSTICS-SUITE ("OPENCORTEX-GATEWAY-MANAGER-TESTS" "GATEWAY-SUITE ("OPENCORTEX-TUI-TESTS" "TUI-SUITE ("OPENCORTEX-LLM-GATEWAY-TESTS" "LLM-GATEWAY-SUITE)) (let ((pkg (find-package (first suite-spec)))) (when pkg (let ((suite-sym (find-symbol (second suite-spec) pkg))) (when suite-sym (format t "~&--- Suite: ~A ---~%" (first suite-spec)) (fiveam:run! suite-sym)))))) (format t "~%=== ALL TESTS COMPLETE ===~% #+end_src