blob: 1901127efa2f8dc6b0d93d4ded272eb89f7fec0b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
;;; test-ai-vterm--f9-in-vterm.el --- F9 reaches Emacs from inside an agent buffer -*- lexical-binding: t; -*-
;;; Commentary:
;; vterm binds <f1>..<f12> to `vterm--self-insert', so a plain <f9> typed
;; while point is in an agent buffer is sent to the terminal program instead
;; of toggling the agent -- which is exactly the case when the agent buffer
;; fills the frame. `ai-vterm.el' re-binds the F9 family in `vterm-mode-map'.
;; These tests load real vterm so `vterm-mode-map' exists, then confirm the
;; bindings landed (and the global ones are still there).
;;; Code:
(require 'ert)
(require 'package)
(setq package-user-dir (expand-file-name "elpa" user-emacs-directory))
(package-initialize)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'vterm)
(require 'ai-vterm)
(ert-deftest test-ai-vterm-f9-bound-in-vterm-mode-map ()
"Normal: <f9> in `vterm-mode-map' runs the agent toggle, not `vterm--self-insert'."
(should (eq (keymap-lookup vterm-mode-map "<f9>") #'cj/ai-vterm)))
(ert-deftest test-ai-vterm-f9-family-bound-in-vterm-mode-map ()
"Normal: the C-/M- F9 variants are bound in `vterm-mode-map' too.
`M-<f9>' toggles gptel's *AI-Assistant* window (rebound here from
the old `cj/ai-vterm-pick-buffer' command, which was removed)."
(should (eq (keymap-lookup vterm-mode-map "C-<f9>") #'cj/ai-vterm-pick-project))
(should (eq (keymap-lookup vterm-mode-map "M-<f9>") #'cj/toggle-gptel)))
(ert-deftest test-ai-vterm-f9-not-self-insert-in-vterm ()
"Boundary: vterm's default <f9> -> `vterm--self-insert' was overridden."
(should-not (eq (keymap-lookup vterm-mode-map "<f9>") 'vterm--self-insert)))
(ert-deftest test-ai-vterm-f9-still-bound-globally ()
"Normal: the global F9 family bindings are intact.
`<f9>' toggles the ai-vterm agent window; `C-<f9>' picks a project
agent; `M-<f9>' toggles gptel's *AI-Assistant* window (rebound from
the retired `cj/ai-vterm-pick-buffer')."
(should (eq (lookup-key (current-global-map) (kbd "<f9>")) #'cj/ai-vterm))
(should (eq (lookup-key (current-global-map) (kbd "C-<f9>")) #'cj/ai-vterm-pick-project))
(should (eq (lookup-key (current-global-map) (kbd "M-<f9>")) #'cj/toggle-gptel)))
(ert-deftest test-ai-vterm-toggle-gptel-autoloaded-without-ai-config ()
"Regression: loading `ai-vterm.el' must not require `ai-config.el'.
The M-F9 binding targets `cj/toggle-gptel', which lives in
`ai-config.el'. The dependency is declared via `autoload' so that
byte-compiling `ai-vterm.el' does not warn and so that requiring
`ai-vterm' in isolation leaves `cj/toggle-gptel' fboundp as an
autoload sigil pointing at `ai-config'. Without this, ai-vterm
would either need a full `(require 'ai-config)' at load time or
ship a known byte-compile warning."
(should-not (featurep 'ai-config))
(should (fboundp 'cj/toggle-gptel))
(should (autoloadp (symbol-function 'cj/toggle-gptel))))
(provide 'test-ai-vterm--f9-in-vterm)
;;; test-ai-vterm--f9-in-vterm.el ends here
|
