diff options
Diffstat (limited to 'tests/test-vterm-toggle--buffer-filter.el')
| -rw-r--r-- | tests/test-vterm-toggle--buffer-filter.el | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/tests/test-vterm-toggle--buffer-filter.el b/tests/test-vterm-toggle--buffer-filter.el index 82afe756..d6fd2c8c 100644 --- a/tests/test-vterm-toggle--buffer-filter.el +++ b/tests/test-vterm-toggle--buffer-filter.el @@ -4,8 +4,8 @@ ;; Three closely-related helpers determine which vterm buffers F12 ;; manages: the predicate `cj/--vterm-toggle-buffer-p', the MRU list ;; `cj/--vterm-toggle-buffers', and the per-frame window finder -;; `cj/--vterm-toggle-displayed-window'. All three exclude claude- -;; prefixed buffers so claude has its own F9 surface. +;; `cj/--vterm-toggle-displayed-window'. All three exclude agent- +;; prefixed buffers so agent has its own F9 surface. ;;; Code: @@ -17,22 +17,22 @@ (require 'testutil-vterm-buffers) (defun test-vterm-toggle--cleanup () - "Kill leftover claude- and *test-vterm- prefixed buffers." - (cj/test--kill-claude-buffers) + "Kill leftover agent- and *test-vterm- prefixed buffers." + (cj/test--kill-agent-buffers) (cj/test--kill-test-vterm-buffers)) (ert-deftest test-vterm-toggle--buffer-p-accepts-vterm-mode () - "Normal: a vterm-mode buffer with non-claude name qualifies." + "Normal: a vterm-mode buffer with non-agent name qualifies." (test-vterm-toggle--cleanup) (let ((buf (cj/test--make-fake-vterm-buffer "*test-vterm-1*"))) (unwind-protect (should (cj/--vterm-toggle-buffer-p buf)) (kill-buffer buf)))) -(ert-deftest test-vterm-toggle--buffer-p-rejects-claude () - "Boundary: claude-prefixed vterm buffers are excluded from F12's set." +(ert-deftest test-vterm-toggle--buffer-p-rejects-agent () + "Boundary: agent-prefixed vterm buffers are excluded from F12's set." (test-vterm-toggle--cleanup) - (let ((buf (cj/test--make-fake-vterm-buffer "claude [project-a]"))) + (let ((buf (cj/test--make-fake-vterm-buffer "agent [project-a]"))) (unwind-protect (should-not (cj/--vterm-toggle-buffer-p buf)) (kill-buffer buf)))) @@ -52,17 +52,17 @@ (kill-buffer buf) (should-not (cj/--vterm-toggle-buffer-p buf)))) -(ert-deftest test-vterm-toggle--buffers-filters-claude () - "Normal: returns vterm buffers but excludes claude-prefixed ones." +(ert-deftest test-vterm-toggle--buffers-filters-agent () + "Normal: returns vterm buffers but excludes agent-prefixed ones." (test-vterm-toggle--cleanup) (let ((normal (cj/test--make-fake-vterm-buffer "*test-vterm-normal*")) - (claude (cj/test--make-fake-vterm-buffer "claude [for-test]"))) + (agent (cj/test--make-fake-vterm-buffer "agent [for-test]"))) (unwind-protect (let ((result (cj/--vterm-toggle-buffers))) (should (memq normal result)) - (should-not (memq claude result))) + (should-not (memq agent result))) (kill-buffer normal) - (kill-buffer claude)))) + (kill-buffer agent)))) (ert-deftest test-vterm-toggle--displayed-window-finds-vterm () "Normal: vterm in a window -> returns that window." @@ -78,17 +78,17 @@ (should (eq (window-buffer result) vt))))) (kill-buffer vt)))) -(ert-deftest test-vterm-toggle--displayed-window-skips-claude () - "Boundary: only a claude vterm is displayed -> nil (claude not F12-managed)." +(ert-deftest test-vterm-toggle--displayed-window-skips-agent () + "Boundary: only an agent vterm is displayed -> nil (agent not F12-managed)." (test-vterm-toggle--cleanup) - (let ((claude (cj/test--make-fake-vterm-buffer "claude [skip-test]"))) + (let ((agent (cj/test--make-fake-vterm-buffer "agent [skip-test]"))) (unwind-protect (save-window-excursion (delete-other-windows) (let ((win (split-window-right))) - (set-window-buffer win claude) + (set-window-buffer win agent) (should-not (cj/--vterm-toggle-displayed-window)))) - (kill-buffer claude)))) + (kill-buffer agent)))) (provide 'test-vterm-toggle--buffer-filter) ;;; test-vterm-toggle--buffer-filter.el ends here |