fix(manifest): complete reconstruction of manifest.org to resolve catastrophic syntax failures
This commit is contained in:
@@ -18,73 +18,73 @@ The *System Manifest* defines the structural components of the OpenCortex. It se
|
|||||||
:description "The Probabilistic-Deterministic Lisp Machine"
|
:description "The Probabilistic-Deterministic Lisp Machine"
|
||||||
:depends-on (:usocket :bordeaux-threads :dexador :uiop :cl-dotenv :cl-ppcre :hunchentoot :ironclad :str :cl-json :uuid)
|
:depends-on (:usocket :bordeaux-threads :dexador :uiop :cl-dotenv :cl-ppcre :hunchentoot :ironclad :str :cl-json :uuid)
|
||||||
:serial t
|
:serial t
|
||||||
:components ((:file "package
|
:components ((:file "harness/package")
|
||||||
(:file "skills
|
(:file "harness/skills")
|
||||||
(:file "communication
|
(:file "harness/communication")
|
||||||
(:file "communication-validator
|
(:file "harness/communication-validator")
|
||||||
(:file "memory
|
(:file "harness/memory")
|
||||||
(:file "context
|
(:file "harness/context")
|
||||||
(:file "perceive
|
(:file "harness/perceive")
|
||||||
(:file "reason
|
(:file "harness/reason")
|
||||||
(:file "act
|
(:file "harness/act")
|
||||||
(:file "loop))
|
(:file "harness/loop")))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
** Test System
|
** Test System
|
||||||
#+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/opencortex.asd")
|
#+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/opencortex.asd")
|
||||||
(defsystem :opencortex/tests
|
(defsystem :opencortex/tests
|
||||||
:depends-on (:opencortex :fiveam)
|
:depends-on (:opencortex :fiveam)
|
||||||
:components ((:file "pipeline-act-tests
|
:components ((:file "tests/pipeline-act-tests")
|
||||||
(:file "boot-sequence-tests
|
(:file "tests/boot-sequence-tests")
|
||||||
(:file "immune-system-tests
|
(:file "tests/immune-system-tests")
|
||||||
(:file "memory-tests
|
(:file "tests/memory-tests")
|
||||||
(:file "pipeline-perceive-tests
|
(:file "tests/pipeline-perceive-tests")
|
||||||
(:file "pipeline-reason-tests
|
(:file "tests/pipeline-reason-tests")
|
||||||
(:file "peripheral-vision-tests
|
(:file "tests/peripheral-vision-tests")
|
||||||
(:file "emacs-edit-tests
|
(:file "tests/emacs-edit-tests")
|
||||||
(:file "engineering-standards-tests
|
(:file "tests/engineering-standards-tests")
|
||||||
(:file "lisp-utils-tests
|
(:file "tests/lisp-utils-tests")
|
||||||
(:file "literate-programming-tests
|
(:file "tests/literate-programming-tests")
|
||||||
(:file "self-edit-tests
|
(:file "tests/self-edit-tests")
|
||||||
(:file "tool-permissions-tests
|
(:file "tests/tool-permissions-tests")
|
||||||
(:file "diagnostics-tests
|
(:file "tests/diagnostics-tests")
|
||||||
(:file "config-manager-tests
|
(:file "tests/config-manager-tests")
|
||||||
(:file "gateway-manager-tests
|
(:file "tests/gateway-manager-tests")
|
||||||
(:file "tui-tests
|
(:file "tests/tui-tests")
|
||||||
(:file "llm-gateway-tests))
|
(:file "tests/llm-gateway-tests")))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
** TUI System
|
** TUI System
|
||||||
#+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/opencortex.asd")
|
#+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/opencortex.asd")
|
||||||
(defsystem :opencortex/tui
|
(defsystem :opencortex/tui
|
||||||
:depends-on (:opencortex :croatoan :usocket :bordeaux-threads)
|
:depends-on (:opencortex :croatoan :usocket :bordeaux-threads)
|
||||||
:components ((:file "tui-client))
|
:components ((:file "harness/tui-client")))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
** Test Orchestrator
|
** Test Orchestrator
|
||||||
#+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/harness/run-all-tests.lisp")
|
#+begin_src lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/harness/run-all-tests.lisp")
|
||||||
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
|
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
|
||||||
|
|
||||||
(let ((oc-dir (or (getenv "OC_DATA_DIR
|
(let ((oc-dir (or (uiop:getenv "OC_DATA_DIR")
|
||||||
(namestring (truename "./))))
|
(namestring (truename "./")))))
|
||||||
(push (uiop:ensure-directory-pathname oc-dir) asdf:*central-registry*))
|
(push (uiop:ensure-directory-pathname oc-dir) asdf:*central-registry*))
|
||||||
|
|
||||||
(ql:quickload '(:opencortex :opencortex/tui :opencortex/tests) :silent t)
|
(ql:quickload '(:opencortex :opencortex/tui :opencortex/tests) :silent t)
|
||||||
|
|
||||||
(format t "~%=== Initializing Skills BEFORE loading tests ===~%
|
(format t "~%=== Initializing Skills BEFORE loading tests ===~%")
|
||||||
(opencortex:initialize-all-skills)
|
(opencortex:initialize-all-skills)
|
||||||
|
|
||||||
(format t "~%=== Running ALL Test Suites ===~%
|
(format t "~%=== Running ALL Test Suites ===~%")
|
||||||
|
|
||||||
(dolist (suite-spec '(("OPENCORTEX-BOOT-TESTS" "BOOT-SUITE
|
(dolist (suite-spec '(("OPENCORTEX-BOOT-TESTS" "BOOT-SUITE")
|
||||||
("OPENCORTEX-COMMUNICATION-TESTS" "COMMUNICATION-PROTOCOL-SUITE
|
("OPENCORTEX-COMMUNICATION-TESTS" "COMMUNICATION-PROTOCOL-SUITE")
|
||||||
("OPENCORTEX-PIPELINE-ACT-TESTS" "PIPELINE-ACT-SUITE
|
("OPENCORTEX-PIPELINE-ACT-TESTS" "PIPELINE-ACT-SUITE")
|
||||||
("OPENCORTEX-MEMORY-TESTS" "MEMORY-SUITE
|
("OPENCORTEX-MEMORY-TESTS" "MEMORY-SUITE")
|
||||||
("OPENCORTEX-ENGINEERING-STANDARDS-TESTS" "ENGINEERING-STANDARDS-SUITE
|
("OPENCORTEX-ENGINEERING-STANDARDS-TESTS" "ENGINEERING-STANDARDS-SUITE")
|
||||||
("OPENCORTEX-DIAGNOSTICS-TESTS" "DIAGNOSTICS-SUITE
|
("OPENCORTEX-DIAGNOSTICS-TESTS" "DIAGNOSTICS-SUITE")
|
||||||
("OPENCORTEX-GATEWAY-MANAGER-TESTS" "GATEWAY-SUITE
|
("OPENCORTEX-GATEWAY-MANAGER-TESTS" "GATEWAY-SUITE")
|
||||||
("OPENCORTEX-TUI-TESTS" "TUI-SUITE
|
("OPENCORTEX-TUI-TESTS" "TUI-SUITE")
|
||||||
("OPENCORTEX-LLM-GATEWAY-TESTS" "LLM-GATEWAY-SUITE))
|
("OPENCORTEX-LLM-GATEWAY-TESTS" "LLM-GATEWAY-SUITE")))
|
||||||
(let ((pkg (find-package (first suite-spec))))
|
(let ((pkg (find-package (first suite-spec))))
|
||||||
(when pkg
|
(when pkg
|
||||||
(let ((suite-sym (find-symbol (second suite-spec) pkg)))
|
(let ((suite-sym (find-symbol (second suite-spec) pkg)))
|
||||||
@@ -92,6 +92,5 @@ The *System Manifest* defines the structural components of the OpenCortex. It se
|
|||||||
(format t "~&--- Suite: ~A ---~%" (first suite-spec))
|
(format t "~&--- Suite: ~A ---~%" (first suite-spec))
|
||||||
(fiveam:run! suite-sym))))))
|
(fiveam:run! suite-sym))))))
|
||||||
|
|
||||||
(format t "~%=== ALL TESTS COMPLETE ===~%
|
(format t "~%=== ALL TESTS COMPLETE ===~%")
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user