1 files changed, 58 insertions, 0 deletions
diff --git a/tests/test-ai-term--attached-agent-dirs.el b/tests/test-ai-term--attached-agent-dirs.el
new file mode 100644
index 00000000..bdd69544
--- /dev/null
+++ b/tests/test-ai-term--attached-agent-dirs.el
@@ -0,0 +1,58 @@
+;;; test-ai-term--attached-agent-dirs.el --- Tests for cj/--ai-term-attached-agent-dirs -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; The queue `cj/ai-term-next-attached' (M-SPC) steps through: project dirs
+;; with a live agent BUFFER only -- attached sessions.  Unlike
+;; `cj/--ai-term-active-agent-dirs', detached tmux sessions with no Emacs
+;; buffer are excluded; those are reachable only via `cj/ai-term-next'
+;; (M-S-SPC).  Candidates / buffers / sessions are mocked so the enumeration
+;; logic is exercised without a real tmux server.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'ai-term)
+
+(ert-deftest test-ai-term--attached-agent-dirs-excludes-detached ()
+  "Normal: only dirs with a live buffer are attached; a detached session is
+excluded even though it is active."
+  (let ((buf (get-buffer-create (cj/--ai-term-buffer-name "/p/alpha"))))
+    (unwind-protect
+        (cl-letf (((symbol-function 'cj/--ai-term-candidates)
+                   (lambda (&rest _) '("/p/alpha" "/p/beta" "/p/gamma" "/p/delta")))
+                  ((symbol-function 'cj/--ai-term-agent-buffers)
+                   (lambda (&rest _) (list buf)))
+                  ((symbol-function 'cj/--ai-term-live-tmux-sessions)
+                   (lambda (&rest _) (list (cj/--ai-term-tmux-session-name "/p/gamma")))))
+          ;; alpha attached (buffer), gamma detached (session): only alpha.
+          (should (equal '("/p/alpha") (cj/--ai-term-attached-agent-dirs))))
+      (kill-buffer buf))))
+
+(ert-deftest test-ai-term--attached-agent-dirs-multiple-sorted ()
+  "Normal: multiple attached dirs come back sorted by agent buffer name."
+  (let ((a (get-buffer-create (cj/--ai-term-buffer-name "/p/delta")))
+        (b (get-buffer-create (cj/--ai-term-buffer-name "/p/alpha"))))
+    (unwind-protect
+        (cl-letf (((symbol-function 'cj/--ai-term-candidates)
+                   (lambda (&rest _) '("/p/alpha" "/p/beta" "/p/delta")))
+                  ((symbol-function 'cj/--ai-term-agent-buffers)
+                   (lambda (&rest _) (list a b)))
+                  ((symbol-function 'cj/--ai-term-live-tmux-sessions)
+                   (lambda (&rest _) nil)))
+          (should (equal '("/p/alpha" "/p/delta") (cj/--ai-term-attached-agent-dirs))))
+      (kill-buffer a)
+      (kill-buffer b))))
+
+(ert-deftest test-ai-term--attached-agent-dirs-empty-when-only-detached ()
+  "Boundary: sessions exist but no live buffers -> no attached dirs."
+  (cl-letf (((symbol-function 'cj/--ai-term-candidates) (lambda (&rest _) '("/p/solo")))
+            ((symbol-function 'cj/--ai-term-agent-buffers) (lambda (&rest _) nil))
+            ((symbol-function 'cj/--ai-term-live-tmux-sessions)
+             (lambda (&rest _) (list (cj/--ai-term-tmux-session-name "/p/solo")))))
+    (should (null (cj/--ai-term-attached-agent-dirs)))))
+
+(provide 'test-ai-term--attached-agent-dirs)
+;;; test-ai-term--attached-agent-dirs.el ends here