Amr Gharbeia
41de20d3f1
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 11s
- Secret Exposure Gate + Privacy Filter (Bouncer) - Shell actuator safety harness (timeout, blocked patterns) - REPL-first enforcement (lisp validation gate, system-prompt-augment) - Engineering Standards lifecycle (two-track Org-first + REPL-first) - Literate Programming discipline (one function per block, reflect-back) - AGENTS.md: thin routing layer, skills are authoritative - SKILLS_DIR removed, ~/notes fallback eliminated - opencortex.sh: multi-distro (Debian+Fedora), configure, install service, backup, restore, help - infrastructure/opencortex.service (systemd user unit) - Docker: updated to debian:trixie, fixed build context - GitHub CI: lint + test workflows fixed, trigger on tags only - Gitea CI: deploy workflow paths fixed - README: one-line curl install, badges - USER_MANUAL: Deployment section (bare metal, Docker, backup) - .gitignore: skills/*.lisp and tests/*.lisp as generated artifacts - Prose/block refactor across all 35 org files - Test suite Tier 1: 43/45 pass (env-dependent failures isolated)
36 lines
1.7 KiB
Common Lisp
36 lines
1.7 KiB
Common Lisp
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
|
|
|
|
(let ((oc-dir (or (uiop:getenv "OC_DATA_DIR")
|
|
(namestring (truename "./")))))
|
|
(push (uiop:ensure-directory-pathname oc-dir) asdf:*central-registry*)
|
|
(setf (uiop:getenv "OC_DATA_DIR") oc-dir))
|
|
|
|
(ql:quickload '(:fiveam :opencortex :opencortex/tui :opencortex/tests) :silent t)
|
|
|
|
(format t "~%=== Initializing Skills BEFORE running 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-DOCTOR-TESTS" "DOCTOR-SUITE")
|
|
("OPENCORTEX-IMMUNE-SYSTEM-TESTS" "IMMUNE-SUITE")
|
|
("OPENCORTEX-LLM-GATEWAY-TESTS" "LLM-GATEWAY-SUITE")
|
|
("OPENCORTEX-MEMORY-TESTS" "MEMORY-SUITE")
|
|
("OPENCORTEX-PERIPHERAL-VISION-TESTS" "VISION-SUITE")
|
|
("OPENCORTEX-PIPELINE-ACT-TESTS" "PIPELINE-ACT-SUITE")
|
|
("OPENCORTEX-PIPELINE-PERCEIVE-TESTS" "PIPELINE-PERCEIVE-SUITE")
|
|
("OPENCORTEX-PIPELINE-REASON-TESTS" "PIPELINE-REASON-SUITE")
|
|
("OPENCORTEX-TUI-TESTS" "TUI-SUITE")
|
|
("OPENCORTEX-UTILS-LISP-TESTS" "UTILS-LISP-SUITE")
|
|
("OPENCORTEX-UTILS-ORG-TESTS" "UTILS-ORG-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 ===~%")
|