FIX: Correct all tangle paths and regenerate Lisp sources

tests/llm-gateway-tests.lisp

@@ -0,0 +1,18 @@
+(defpackage :org-agent-llm-gateway-tests
+  (:use :cl :fiveam :org-agent))
+(in-package :org-agent-llm-gateway-tests)
+
+(def-suite llm-gateway-suite :description "Tests for the Unified LLM Gateway.")
+(in-suite llm-gateway-suite)
+
+(test test-credential-retrieval
+  "Ensure credentials are retrieved from the correct environment variables."
+  (uiop:setenv "ANTHROPIC_API_KEY" "sk-test-key")
+  (is (equal "sk-test-key" (org-agent::get-llm-credentials :anthropic)))
+  (uiop:setenv "ANTHROPIC_API_KEY" ""))
+
+(test test-error-handling-missing-key
+  "Ensure missing keys return a standardized error plist."
+  (let ((res (org-agent:execute-llm-request "test" "sys" :provider :openai)))
+    (is (eq (getf res :status) :error))
+    (is (search "API Key missing" (getf res :message)))))

tests/memory-suite-tests.lisp

@@ -0,0 +1,11 @@
+(defpackage :org-agent-memory-tests
+  (:use :cl :fiveam :org-agent))
+(in-package :org-agent-memory-tests)
+
+(def-suite memory-suite :description "Tests for Homoiconic Memory.")
+(in-suite memory-suite)
+
+(test test-id-injection
+  (let* ((node (list :type :HEADLINE :properties nil))
+         (normalized (org-agent::memory-ensure-id node)))
+    (is (not (null (getf (getf normalized :properties) :ID))))))

tests/vault-tests.lisp

@@ -0,0 +1,16 @@
+(defpackage :org-agent-vault-tests
+  (:use :cl :fiveam :org-agent))
+(in-package :org-agent-vault-tests)
+
+(def-suite vault-suite :description "Tests for the Credentials Vault.")
+(in-suite vault-suite)
+
+(test test-masking
+  (is (equal "sk-t...-key" (org-agent::vault-mask-string "sk-test-key")))
+  (is (equal "[REDACTED]" (org-agent::vault-mask-string "short"))))
+
+(test test-vault-persistence
+  "Verify that setting a secret triggers a snapshot (mock check)."
+  (let ((old-version (org-agent::org-object-version (gethash "root" *object-store*))))
+    (org-agent:vault-set-secret :test "secret-val")
+    (is (> (org-agent::org-object-version (gethash "root" *object-store*)) old-version))))