fix(ai-term): key teardown session names off the buffer name

ghostel retargets default-directory via OSC 7 on every cd in the agent shell, so close (and quit with no project argument) computed the wrong aiv- session name after a cd. The kill then missed the real session and orphaned the agent, or hit a different project's session. The buffer name ("agent [basename]") never changes, so teardown now derives the basename from it.

3 files changed, 52 insertions, 1 deletions

diff --git a/tests/test-ai-term--buffer-name.el b/tests/test-ai-term--buffer-name.el
index b241977d..e728bc82 100644
--- a/tests/test-ai-term--buffer-name.el
+++ b/tests/test-ai-term--buffer-name.el
@@ -38,5 +38,26 @@
   (should (equal (cj/--ai-term-buffer-name "/a/b/c/d/e/leaf")
                  "agent [leaf]")))
 
+;;; Basename extraction (inverse transform)
+
+(ert-deftest test-ai-term--buffer-basename-normal-round-trip ()
+  "Normal: extracts the basename embedded in an agent buffer's name."
+  (let ((buf (get-buffer-create "agent [proj]")))
+    (unwind-protect
+        (should (equal (cj/--ai-term-buffer-basename buf) "proj"))
+      (kill-buffer buf))))
+
+(ert-deftest test-ai-term--buffer-basename-boundary-dotted ()
+  "Boundary: dotted basenames (.emacs.d) survive extraction intact."
+  (let ((buf (get-buffer-create "agent [.emacs.d]")))
+    (unwind-protect
+        (should (equal (cj/--ai-term-buffer-basename buf) ".emacs.d"))
+      (kill-buffer buf))))
+
+(ert-deftest test-ai-term--buffer-basename-error-non-agent-nil ()
+  "Error: a non-agent buffer yields nil."
+  (with-temp-buffer
+    (should (null (cj/--ai-term-buffer-basename (current-buffer))))))
+
 (provide 'test-ai-term--buffer-name)
 ;;; test-ai-term--buffer-name.el ends here
diff --git a/tests/test-ai-term--close.el b/tests/test-ai-term--close.el
index 242bfd74..8b028351 100644
--- a/tests/test-ai-term--close.el
+++ b/tests/test-ai-term--close.el
@@ -36,8 +36,22 @@
              (lambda (&rest _) (error "no tmux"))))
     (should (null (cj/--ai-term-kill-tmux-session "aiv-foo")))))
 
+(ert-deftest test-ai-term--close-buffer-session-from-name-after-cd ()
+  "Regression: the session name comes from the immutable buffer name.
+ghostel retargets `default-directory' via OSC 7 as the shell cds, so
+deriving from it after a cd kills the wrong aiv- session (or misses,
+orphaning the agent).  The buffer name's basename never changes."
+  (let ((buf (get-buffer-create "agent [proj]"))
+        captured-session)
+    (with-current-buffer buf (setq-local default-directory "/tmp/elsewhere/"))
+    (cl-letf (((symbol-function 'cj/--ai-term-kill-tmux-session)
+               (lambda (s) (setq captured-session s) 0)))
+      (cj/--ai-term-close-buffer buf))
+    (should (equal captured-session "aiv-proj"))
+    (should-not (buffer-live-p buf))))
+
 (ert-deftest test-ai-term--close-buffer-kills-session-and-buffer ()
-  "Normal: derives the session from default-directory, kills it and the buffer."
+  "Normal: derives the session from the buffer name, kills it and the buffer."
   (let ((buf (get-buffer-create "agent [foo]"))
         captured-session)
     (with-current-buffer buf (setq-local default-directory "/tmp/foo/"))
diff --git a/tests/test-ai-term--quit.el b/tests/test-ai-term--quit.el
index 55ace81d..64b8a5d4 100644
--- a/tests/test-ai-term--quit.el
+++ b/tests/test-ai-term--quit.el
@@ -43,6 +43,22 @@
           (should-not (buffer-live-p buf)))
       (when (buffer-live-p buf) (kill-buffer buf)))))
 
+(ert-deftest test-ai-term-quit-nil-project-from-drifted-agent-buffer ()
+  "Regression: nil PROJECT inside an agent buffer keys off the buffer name.
+After a cd in the agent shell, ghostel's OSC 7 tracking moves the buffer's
+`default-directory' away from the project, so keying off it would kill the
+wrong session and miss the buffer."
+  (let ((buf (get-buffer-create "agent [realproj]"))
+        (calls nil))
+    (unwind-protect
+        (test-ai-term-quit--with-tmux calls
+          (with-current-buffer buf
+            (setq-local default-directory "/tmp/elsewhere/")
+            (cj/ai-term-quit))
+          (should (member '("kill-session" "-t" "aiv-realproj") 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))