feat(arch): implement 'Code as Thought' architecture and formalize PSF Consensus Loop

projects/org-skill-agent-identity/tests/test-suite.lisp

@@ -0,0 +1,31 @@
+;;; TDD Suite: org-skill-agent-identity
+;;; Status: RED
+;;; Author: Tech-Analyst-Agent
+;;; Created: [2026-03-31 Tue 14:50]
+
+(defpackage :org-skill-agent-identity-tests
+  (:use :cl :fiveam :org-skill-agent-identity))
+
+(in-package :org-skill-agent-identity-tests)
+
+(def-suite identity-suite
+  :description "Tests for agent identity and persona retrieval.")
+
+(in-suite identity-suite)
+
+(test get-name-from-env
+  "Ensure the agent name is correctly pulled from MEMEX_ASSISTANT."
+  (uiop:setenv "MEMEX_ASSISTANT" "TestAgent")
+  (is (equal "TestAgent" (get-agent-name)))
+  (uiop:setenv "MEMEX_ASSISTANT" nil))
+
+(test get-default-name
+  "Ensure the agent name defaults to 'Agent' when env is empty."
+  (uiop:setenv "MEMEX_ASSISTANT" nil)
+  (is (equal "Agent" (get-agent-name))))
+
+(test identity-trigger
+  "Ensure the skill triggers on identity keywords."
+  (is (trigger-skill-agent-identity '(:payload (:text "who are you"))))
+  (is (trigger-skill-agent-identity '(:payload (:text "identify yourself"))))
+  (is (not (trigger-skill-agent-identity '(:payload (:text "hello"))))))