blob: 5a7971bfd88b9ba82b272b60840c089cfa734b08 (
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
;;; test-ai-vterm--terminal-guard.el --- Tests for the terminal-frame guard -*- lexical-binding: t; -*-
;;; Commentary:
;; AI-vterm launches a graphical vterm side window, so it is GUI-only.
;; `cj/--ai-vterm-refuse-in-terminal' signals a `user-error' when the
;; current frame is a terminal frame; each interactive entry point
;; (`cj/ai-vterm', `cj/ai-vterm-pick-project', `cj/ai-vterm-close')
;; calls it first so F9 and friends decline -- with a message -- in a
;; terminal frame instead of launching a vterm. The check is per-frame
;; at command time, not at load, so a daemon serving both GUI and
;; terminal frames keeps the launcher working in its GUI frames.
;;
;; `env-terminal-p' is mocked so the tests are deterministic regardless
;; of whether the run itself is graphical (batch runs are terminal).
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(add-to-list 'load-path (expand-file-name "tests" user-emacs-directory))
(require 'ai-vterm)
;; ---------------------------- the guard helper ----------------------------
(ert-deftest test-ai-vterm--refuse-in-terminal-errors-in-terminal-frame ()
"Error: terminal frame -> `user-error', so the command declines."
(cl-letf (((symbol-function 'env-terminal-p) (lambda () t)))
(should-error (cj/--ai-vterm-refuse-in-terminal) :type 'user-error)))
(ert-deftest test-ai-vterm--refuse-in-terminal-passes-in-gui-frame ()
"Normal: GUI frame -> returns nil, no error, command proceeds."
(cl-letf (((symbol-function 'env-terminal-p) (lambda () nil)))
(should-not (cj/--ai-vterm-refuse-in-terminal))))
;; ------------------- the three interactive entry points -------------------
(ert-deftest test-ai-vterm-f9-declines-in-terminal-without-dispatching ()
"Error: F9 in a terminal frame errors and never reaches dispatch."
(let ((dispatched nil))
(cl-letf (((symbol-function 'env-terminal-p) (lambda () t))
((symbol-function 'cj/--ai-vterm-dispatch)
(lambda () (setq dispatched t) '(pick-project))))
(should-error (cj/ai-vterm) :type 'user-error)
(should-not dispatched))))
(ert-deftest test-ai-vterm-pick-project-declines-in-terminal-without-prompting ()
"Error: C-F9 in a terminal frame errors and never reaches the picker."
(let ((prompted nil))
(cl-letf (((symbol-function 'env-terminal-p) (lambda () t))
((symbol-function 'cj/--ai-vterm-pick-project)
(lambda () (setq prompted t) "/tmp")))
(should-error (cj/ai-vterm-pick-project) :type 'user-error)
(should-not prompted))))
(ert-deftest test-ai-vterm-close-declines-in-terminal-without-targeting ()
"Error: M-F9 in a terminal frame errors and never reaches close-target."
(let ((targeted nil))
(cl-letf (((symbol-function 'env-terminal-p) (lambda () t))
((symbol-function 'cj/--ai-vterm-close-target)
(lambda () (setq targeted t) nil)))
(should-error (cj/ai-vterm-close) :type 'user-error)
(should-not targeted))))
(ert-deftest test-ai-vterm-f9-passes-guard-in-gui-frame ()
"Normal: F9 in a GUI frame passes the guard and reaches dispatch."
(let ((dispatched nil))
(cl-letf (((symbol-function 'env-terminal-p) (lambda () nil))
((symbol-function 'cj/--ai-vterm-dispatch)
(lambda () (setq dispatched t) '(pick-project)))
((symbol-function 'cj/ai-vterm-pick-project)
(lambda (&optional _arg) nil)))
(cj/ai-vterm)
(should dispatched))))
(provide 'test-ai-vterm--terminal-guard)
;;; test-ai-vterm--terminal-guard.el ends here
|
