(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)))))