14 lines
608 B
Common Lisp
14 lines
608 B
Common Lisp
(defpackage :org-skill-sub-agent-tests
|
|
(:use :cl :fiveam :org-skill-sub-agent-manager))
|
|
|
|
(in-package :org-skill-sub-agent-tests)
|
|
|
|
(test spawn-thread-and-registry
|
|
"Ensure a sub-agent thread is created and added to the registry."
|
|
(let ((initial-count (length org-skill-sub-agent-manager::*active-sub-agents*)))
|
|
(sub-agent-spawn "Test Goal" '(:test-context t))
|
|
(is (= (1+ initial-count) (length org-skill-sub-agent-manager::*active-sub-agents*)))
|
|
(let ((spawned (car org-skill-sub-agent-manager::*active-sub-agents*)))
|
|
(is (bt:threadp spawned))
|
|
(is (bt:thread-alive-p spawned)))))
|