tests: Add FiveAM tests for self-edit, config-manager, gateway-manager

- Self-edit: test self-edit-apply (success, not-found, file-not-found), parse-location
- Config-manager: test get-oc-config-dir (default, env-override), save-providers roundtrip
- Gateway-manager: test multiple platforms, save-gateways roundtrip

Phase D: Tier 1 Chaos verified on all modified org files.
This commit is contained in:
2026-04-28 15:11:16 -04:00
parent 38d8ec40e1
commit 45d74c2f3b
3 changed files with 121 additions and 0 deletions

View File

@@ -38,6 +38,32 @@ In a traditional AI wrapper, the user manually edits a config file to add a bot
(let ((opencortex::*gateways* nil))
(opencortex:skill-gateway-register :telegram '(:status :unverified))
(is (getf (getf opencortex::*gateways* :telegram) :status))))
(test test-gateway-multiple-platforms
"Verify that multiple gateways can be registered simultaneously."
(let ((opencortex::*gateways* nil))
(opencortex:skill-gateway-register :telegram '(:status :verified :token "abc123"))
(opencortex:skill-gateway-register :signal '(:status :unverified))
(is (eq (getf (getf opencortex::*gateways* :telegram) :status) :verified))
(is (eq (getf (getf opencortex::*gateways* :signal) :status) :unverified))))
(test test-save-gateways-roundtrip
"Verify save-gateways persists and gateways can be verified."
(let ((opencortex::*gateways* nil)
(test-dir "/tmp/test-opencortex-gw/")
(orig-env (uiop:getenv "OC_CONFIG_DIR")))
(unwind-protect
(progn
(setf (uiop:getenv "OC_CONFIG_DIR") test-dir)
(opencortex:skill-gateway-register :telegram '(:status :verified :chat-id 12345))
(opencortex:save-gateways)
(let ((loaded-gw (uiop:read-file-string (merge-pathnames "gateways.lisp" (uiop:ensure-directory-pathname test-dir)))))
(is (search "telegram" loaded-gw))
(is (search "12345" loaded-gw))))
(uiop:delete-directory-tree (uiop:ensure-directory-pathname test-dir) :validate t)
(if orig-env
(setf (uiop:getenv "OC_CONFIG_DIR") orig-env)
(unsetenv "OC_CONFIG_DIR")))))
#+end_src
* Phase C: Implementation (Build)