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

harness/manifest.org

@@ -50,7 +50,8 @@ The *System Manifest* defines the structural components of the OpenCortex. It se
                (:file "tests/diagnostics-tests")
                (:file "tests/config-manager-tests")
                (:file "tests/gateway-manager-tests")
-               (:file "tests/tui-tests")))
+               (:file "tests/tui-tests")
+               (:file "tests/llm-gateway-tests")))
 #+end_src
 
 ** TUI System
@@ -60,3 +61,37 @@ The *System Manifest* defines the structural components of the OpenCortex. It se
   :components ((:file "harness/tui-client")))
 #+end_src
 
+** Test Orchestrator
+#+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*))
+
+(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 ===~%")
+#+end_src
+