1 files changed, 65 insertions, 0 deletions
diff --git a/tests/test-ai-term--quit.el b/tests/test-ai-term--quit.el
new file mode 100644
index 000000000..55ace81db
--- /dev/null
+++ b/tests/test-ai-term--quit.el
@@ -0,0 +1,65 @@
+;;; test-ai-term--quit.el --- Tests for cj/ai-term-quit -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Headless teardown of a project's AI-term: kill the aiv-<name> tmux session,
+;; then the agent buffer.  Driven by the rulesets Stop hook via emacsclient -e,
+;; keyed by project basename.  Must be idempotent (a no-op when already gone).
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'ai-term)
+
+(defmacro test-ai-term-quit--with-tmux (calls-var &rest body)
+  "Run BODY with `process-file' mocked to record arg lists into CALLS-VAR (0 exit)."
+  (declare (indent 1))
+  `(cl-letf (((symbol-function 'process-file)
+              (lambda (_program _infile _destination _display &rest args)
+                (push args ,calls-var) 0)))
+     ,@body))
+
+(ert-deftest test-ai-term-quit-kills-session-and-buffer ()
+  "Normal: quit kills the project's aiv- session and its agent buffer."
+  (let ((buf (get-buffer-create "agent [myproj]"))
+        (calls nil))
+    (unwind-protect
+        (test-ai-term-quit--with-tmux calls
+          (cj/ai-term-quit "myproj")
+          (should (member '("kill-session" "-t" "aiv-myproj") calls))
+          (should-not (buffer-live-p buf)))
+      (when (buffer-live-p buf) (kill-buffer buf)))))
+
+(ert-deftest test-ai-term-quit-sanitizes-dotted-basename ()
+  "Boundary: a dotted basename maps to the sanitized session tmux really uses."
+  (let ((buf (get-buffer-create "agent [.emacs.d]"))
+        (calls nil))
+    (unwind-protect
+        (test-ai-term-quit--with-tmux calls
+          (cj/ai-term-quit ".emacs.d")
+          (should (member '("kill-session" "-t" "aiv-_emacs_d") calls))
+          (should-not (buffer-live-p buf)))
+      (when (buffer-live-p buf) (kill-buffer buf)))))
+
+(ert-deftest test-ai-term-quit-idempotent-when-gone ()
+  "Error/Boundary: a second quit (session + buffer already gone) does not error."
+  (let ((calls nil))
+    (test-ai-term-quit--with-tmux calls
+      ;; No buffer named "agent [ghost]" exists; session kill is a no-op in tmux.
+      (should (stringp (cj/ai-term-quit "ghost")))
+      (should (member '("kill-session" "-t" "aiv-ghost") calls)))))
+
+(ert-deftest test-ai-term-quit-leaves-non-agent-buffers ()
+  "Error: a same-named-but-non-agent buffer is never killed (prefix guard)."
+  (let ((buf (get-buffer-create "notes-myproj"))
+        (calls nil))
+    (unwind-protect
+        (test-ai-term-quit--with-tmux calls
+          (cj/ai-term-quit "myproj")
+          (should (buffer-live-p buf)))
+      (when (buffer-live-p buf) (kill-buffer buf)))))
+
+(provide 'test-ai-term--quit)
+;;; test-ai-term--quit.el ends here