1 files changed, 94 insertions, 0 deletions
diff --git a/tests/test-ai-term--launch-command.el b/tests/test-ai-term--launch-command.el
new file mode 100644
index 00000000..246e70a3
--- /dev/null
+++ b/tests/test-ai-term--launch-command.el
@@ -0,0 +1,94 @@
+;;; test-ai-term--launch-command.el --- Tests for cj/--ai-term-launch-command -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; The launch command is what gets typed into a fresh ghostel shell to bring
+;; up the agent inside a per-project tmux session.  The session is named
+;; `cj/ai-term-tmux-session-prefix' + the project basename, so a second
+;; F9 on the same project reattaches to the running agent rather than
+;; spawning a new one, and `tmux ls' output can be filtered to AI-term's
+;; own sessions.  The trailing `exec bash' keeps the tmux window alive if
+;; the agent exits, leaving the session intact for recovery.
+
+;;; Code:
+
+(require 'ert)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'ai-term)
+
+(ert-deftest test-ai-term--launch-command-uses-new-session-attach ()
+  "Normal: starts with `tmux new-session -A' so existing sessions reattach."
+  (let ((cj/ai-term-agent-command "agent"))
+    (should (string-prefix-p
+             "tmux new-session -A "
+             (cj/--ai-term-launch-command "/code/foo")))))
+
+(ert-deftest test-ai-term--launch-command-includes-prefixed-session-name ()
+  "Normal: the session name is the prefixed form from the name helper."
+  (let ((cj/ai-term-agent-command "agent")
+        (cj/ai-term-tmux-session-prefix "aiv-"))
+    (should (string-match-p
+             " -s aiv-foo "
+             (cj/--ai-term-launch-command "/code/foo")))))
+
+(ert-deftest test-ai-term--launch-command-names-window ()
+  "Normal: `-n <window-name>' so the agent window is named distinctly."
+  (let ((cj/ai-term-agent-command "agent")
+        (cj/ai-term-tmux-window-name "ai"))
+    (should (string-match-p
+             " -n ai "
+             (cj/--ai-term-launch-command "/code/foo")))))
+
+(ert-deftest test-ai-term--launch-command-honors-custom-window-name ()
+  "Boundary: a non-default window name is what `-n' gets."
+  (let ((cj/ai-term-agent-command "agent")
+        (cj/ai-term-tmux-window-name "agent"))
+    (should (string-match-p
+             " -n agent "
+             (cj/--ai-term-launch-command "/code/foo")))))
+
+(ert-deftest test-ai-term--launch-command-includes-start-directory ()
+  "Normal: `-c <dir>' so the new session's first window starts in DIR."
+  (let ((cj/ai-term-agent-command "agent"))
+    (should (string-match-p
+             " -c /code/foo "
+             (cj/--ai-term-launch-command "/code/foo")))))
+
+(ert-deftest test-ai-term--launch-command-includes-agent-command ()
+  "Normal: the configured agent command is in the launched shell command.
+The inner command is passed through `shell-quote-argument', so spaces
+are escaped (`\\\\ ') -- the regex below accepts either form."
+  (let ((cj/ai-term-agent-command "agent --some-flag"))
+    (should (string-match-p
+             "agent\\(\\\\\\)? --some-flag"
+             (cj/--ai-term-launch-command "/code/foo")))))
+
+(ert-deftest test-ai-term--launch-command-tails-with-exec-bash ()
+  "Boundary: `exec bash' tails so the tmux window survives the agent exiting.
+Accepts the post-`shell-quote-argument' shape (`exec\\\\ bash')."
+  (let ((cj/ai-term-agent-command "agent"))
+    (should (string-match-p
+             "exec\\(\\\\\\)? bash"
+             (cj/--ai-term-launch-command "/code/foo")))))
+
+(ert-deftest test-ai-term--launch-command-survives-single-quote-in-agent ()
+  "Normal: a user-customized agent command containing a single quote
+shouldn't break the shell parse.  `shell-quote-argument' produces a
+valid shell token regardless of the embedded quote shape -- the
+escaping is implementation-detail, so we assert the literal words
+\"hi\" and \"there\" both appear (the space between them may be
+escaped as \\\\ )."
+  (let ((cj/ai-term-agent-command "agent --say 'hi there'"))
+    (let ((cmd (cj/--ai-term-launch-command "/code/foo")))
+      (should (string-match-p "hi\\(\\\\\\)? there" cmd)))))
+
+(ert-deftest test-ai-term--launch-command-handles-spaces-in-basename ()
+  "Boundary: a basename with whitespace becomes hyphenated before quoting."
+  (let ((cj/ai-term-agent-command "agent")
+        (cj/ai-term-tmux-session-prefix "aiv-"))
+    (should (string-match-p
+             " -s aiv-my-work "
+             (cj/--ai-term-launch-command "/code/my work")))))
+
+(provide 'test-ai-term--launch-command)
+;;; test-ai-term--launch-command.el ends here