Amr Gharbeia
6a6f4479ac
- NEW: org-skill-utils-lisp (consolidated from org-skill-lisp-utils) * 3-phase validation: structural, syntactic, semantic * Sandboxed eval, AST extraction/injection/wrapping * Format, list-definitions utilities - NEW: org-skill-utils-org (consolidated from org-skill-emacs-edit) * Read/update/delete org headlines * Property management, TODO state handling * ID-link and internal link support - DELETE: org-skill-lisp-utils (merged into utils-lisp) - DELETE: org-skill-emacs-edit (merged into utils-org) - RENAME: run-all-tests.lisp -> run-tests.lisp - HARDEN: Skill loader with improved lisp keyword handling - FIX: Package jailing issues with def-cognitive-tool macro conflicts - ADD: Setup wizard (opencortex setup) and doctor (opencortex doctor) - ADD: TUI client with Croatoan for native terminal rendering - REMOVE: Dynamic loading from opencortex.asd (use :force t instead) - CLEANUP: Test file consolidation (removed duplicate test suites) Co-authored-by: Agent <agent@memex>
33 lines
1.6 KiB
Common Lisp
33 lines
1.6 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 '(: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-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-UTILS-ORG-TESTS" "UTILS-ORG-SUITE")
|
|
("OPENCORTEX-UTILS-LISP-TESTS" "UTILS-LISP-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 ===~%")
|