Amr Gharbeia
f940861921
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
- Updated all 150+ :tangle headers across harness/ and skills/ to use elisp (expand-file-name) to target INSTALL_DIR dynamically. - Cleaned up environment/ directory depth by moving memory-image.lisp to state/. - Moved test scripts to tests/ and deleted redundant chat scripts.
51 lines
1.7 KiB
Common Lisp
51 lines
1.7 KiB
Common Lisp
(load "~/quicklisp/setup.lisp")
|
|
|
|
(push #p"./" asdf:*central-registry*)
|
|
|
|
(ql:quickload '(:usocket :bordeaux-threads :cl-postgres :split-sequence
|
|
:dexador :jonathan :cl-dotenv :hunchentoot
|
|
:trivial-garbage :s-sql :str :uuid :cl-json :uiop :fiveam))
|
|
|
|
(asdf:load-system :opencortex)
|
|
(asdf:load-system :opencortex/tests)
|
|
|
|
(format t "~%=== Running ALL Test Suites ===~%")
|
|
|
|
;; Engineering Standards tests
|
|
(when (find-package :OPENCORTEX-ENGINEERING-STANDARDS-TESTS)
|
|
(fiveam:run! 'OPENCORTEX-ENGINEERING-STANDARDS-TESTS::ENGINEERING-STANDARDS-SUITE))
|
|
|
|
;; Literate Programming tests
|
|
(when (find-package :OPENCORTEX-LITERATE-PROGRAMMING-TESTS)
|
|
(fiveam:run! 'OPENCORTEX-LITERATE-PROGRAMMING-TESTS::LITERATE-PROGRAMMING-SUITE))
|
|
|
|
;; Communication tests
|
|
(when (find-package :OPENCORTEX-TESTS)
|
|
(fiveam:run! 'OPENCORTEX-TESTS::COMMUNICATION-PROTOCOL-SUITE))
|
|
|
|
;; Pipeline tests
|
|
(when (find-package :OPENCORTEX-PIPELINE-TESTS)
|
|
(fiveam:run! 'OPENCORTEX-PIPELINE-TESTS::PIPELINE-SUITE))
|
|
|
|
;; Boot sequence tests
|
|
(when (find-package :OPENCORTEX-BOOT-TESTS)
|
|
(fiveam:run! 'OPENCORTEX-BOOT-TESTS::BOOT-SUITE))
|
|
|
|
;; Memory tests
|
|
(when (find-package :OPENCORTEX-MEMORY-TESTS)
|
|
(fiveam:run! 'OPENCORTEX-MEMORY-TESTS::MEMORY-SUITE))
|
|
|
|
;; Immune system tests
|
|
(when (find-package :OPENCORTEX-IMMUNE-SYSTEM-TESTS)
|
|
(fiveam:run! 'OPENCORTEX-IMMUNE-SYSTEM-TESTS::IMMUNE-SUITE))
|
|
|
|
;; Emacs edit tests
|
|
(when (find-package :OPENCORTEX-EMACS-EDIT-TESTS)
|
|
(fiveam:run! 'OPENCORTEX-EMACS-EDIT-TESTS::EMACS-EDIT-SUITE))
|
|
|
|
;; Lisp utils tests
|
|
(when (find-package :OPENCORTEX-LISP-UTILS-TESTS)
|
|
(fiveam:run! 'OPENCORTEX-LISP-UTILS-TESTS::LISP-UTILS-SUITE))
|
|
|
|
(format t "~%=== ALL TESTS COMPLETE ===~%")
|