amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

feat(chaos): implement Tier 2 Integration Chaos for Memory, Networking, and LLM Gateway

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 17:32:15 -04:00
parent fc0c069d65
commit e31222d6e3
12 changed files with 185 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
harness/package.org
View File

@@ -292,49 +292,5 @@ Centralized logging function. It simultaneously writes to standard output and th
(format t "~a~%" formatted-msg)
(finish-output)))
#+end_src
* Global Test Runner
#+begin_src lisp :tangle (expand-file-name "run-all-tests.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
(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*))
(progn
(ql:quickload :opencortex :silent t)
(finish-output))
(format t "~%=== Initializing Skills BEFORE loading tests ===~%")
(finish-output)
(opencortex:initialize-all-skills)
(format t "~%=== Loading Test System ===~%")
(finish-output)
(progn
(ql:quickload :opencortex/tests :silent t)
(finish-output))
(format t "~%=== Running ALL Test Suites ===~%")
(finish-output)
(let ((suites '(("ENGINEERING-STANDARDS" . "OPENCORTEX-ENGINEERING-STANDARDS-TESTS::ENGINEERING-STANDARDS-SUITE")
("LITERATE-PROGRAMMING" . "OPENCORTEX-LITERATE-PROGRAMMING-TESTS::LITERATE-PROGRAMMING-SUITE")
("COMMUNICATION" . "OPENCORTEX-COMMUNICATION-TESTS::COMMUNICATION-PROTOCOL-SUITE")
("PIPELINE" . "OPENCORTEX-PIPELINE-TESTS::PIPELINE-SUITE")
("BOOT" . "OPENCORTEX-BOOT-TESTS::BOOT-SUITE")
("MEMORY" . "OPENCORTEX-MEMORY-TESTS::MEMORY-SUITE")
("IMMUNE" . "OPENCORTEX-IMMUNE-SYSTEM-TESTS::IMMUNE-SUITE")
("EMACS-EDIT" . "OPENCORTEX-EMACS-EDIT-TESTS::EMACS-EDIT-SUITE")
("LISP-UTILS" . "OPENCORTEX-LISP-UTILS-TESTS::LISP-UTILS-SUITE")
("SELF-EDIT" . "OPENCORTEX-SELF-EDIT-TESTS::SELF-EDIT-SUITE")
("TOOL-PERMISSIONS" . "OPENCORTEX-TOOL-PERMISSIONS-TESTS::TOOL-PERMISSIONS-SUITE")
("CONFIG" . "OPENCORTEX-CONFIG-MANAGER-TESTS::CONFIG-SUITE")
("DIAGNOSTICS" . "OPENCORTEX-DIAGNOSTICS-TESTS::DIAGNOSTICS-SUITE"))))
(dolist (suite suites)
(let ((pkg (intern (string-upcase (car (uiop:split-string (cdr suite) :separator "::"))) :keyword)))
(when (find-package pkg)
(format t "~&--- Suite: ~A ---~%" (car suite))
(fiveam:run! (uiop:safe-read-from-string (cdr suite)))))))
(format t "~%=== ALL TESTS COMPLETE ===~%")
#+end_src