31 lines
1.4 KiB
Common Lisp
31 lines
1.4 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*))
|
|
|
|
(ql:quickload '(:opencortex :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 ===~%")
|