;;; 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"))))))