32 lines
1.0 KiB
Common Lisp
32 lines
1.0 KiB
Common Lisp
;;; 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"))))))
|