feat(psf): complete high-integrity loop for advanced features
This commit is contained in:
13
projects/org-skill-sub-agent-manager/tests/test-suite.lisp
Normal file
13
projects/org-skill-sub-agent-manager/tests/test-suite.lisp
Normal file
@@ -0,0 +1,13 @@
|
||||
(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)))))
|
||||
Reference in New Issue
Block a user