blob: 8da2e4b012e89afed0ebb8af4980c9706f701d57 (
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
;;; test-ai-config-commands.el --- Tests for ai-config interactive commands -*- lexical-binding: t; -*-
;;; Commentary:
;; Sibling tests cover the pure helpers (model-to-string, build-model-list,
;; current-model-selection, fresh-org-prefix, backend-and-model). This
;; file covers the user-facing wrappers:
;;
;; cj/gptel--available-backends
;; cj/gptel-change-model
;; cj/gptel-add-file
;; cj/gptel-add-this-buffer
;; cj/toggle-gptel
;; cj/gptel-context-clear
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'ai-config)
;; Top-level defvars so let-bindings reach the dynamic binding under
;; lexical scope.
(defvar gptel-backend nil)
(defvar gptel-model nil)
(defvar gptel-claude-backend nil)
(defvar gptel-chatgpt-backend nil)
(defvar gptel-context--alist nil)
;;; cj/gptel--available-backends
(ert-deftest test-ai-available-backends-returns-claude-and-chatgpt ()
"Normal: both backends present become alist entries."
(let ((gptel-claude-backend 'claude-obj)
(gptel-chatgpt-backend 'chatgpt-obj))
(cl-letf (((symbol-function 'require) (lambda (&rest _) t))
((symbol-function 'cj/ensure-gptel-backends) #'ignore))
(let ((result (cj/gptel--available-backends)))
(should (equal (assoc "Anthropic - Claude" result)
'("Anthropic - Claude" . claude-obj)))
(should (equal (assoc "OpenAI - ChatGPT" result)
'("OpenAI - ChatGPT" . chatgpt-obj)))))))
(ert-deftest test-ai-available-backends-skips-nil-entries ()
"Boundary: only configured backends appear in the alist."
(let ((gptel-claude-backend nil)
(gptel-chatgpt-backend 'chatgpt-only))
(cl-letf (((symbol-function 'require) (lambda (&rest _) t))
((symbol-function 'cj/ensure-gptel-backends) #'ignore))
(let ((result (cj/gptel--available-backends)))
(should-not (assoc "Anthropic - Claude" result))
(should (assoc "OpenAI - ChatGPT" result))))))
;;; cj/gptel-change-model
(ert-deftest test-ai-change-model-global-sets-globals-and-messages ()
"Normal: choosing 'global' sets `gptel-backend' and `gptel-model'
globally and reports via `message'."
(let ((gptel-backend 'old-backend)
(gptel-model 'old-model)
(gptel-claude-backend 'claude-obj)
(gptel-chatgpt-backend nil)
msg)
(cl-letf (((symbol-function 'require) (lambda (&rest _) t))
((symbol-function 'cj/ensure-gptel-backends) #'ignore)
((symbol-function 'gptel-backend-models)
(lambda (_) '("claude-opus-4-7")))
((symbol-function 'completing-read)
(lambda (prompt &rest _)
(if (string-prefix-p "Set model for" prompt)
"global"
"Anthropic - Claude: claude-opus-4-7")))
((symbol-function 'message)
(lambda (fmt &rest args) (setq msg (apply #'format fmt args)))))
(cj/gptel-change-model))
(should (eq gptel-backend 'claude-obj))
(should (eq gptel-model 'claude-opus-4-7))
(should (string-match-p "global" msg))))
;;; cj/gptel-add-file
(ert-deftest test-ai-add-file-outside-projectile-uses-read-file-name ()
"Normal: without projectile, add-file routes through read-file-name."
(let* ((target (make-temp-file "cj-ai-add-file-" nil ".org"))
added)
(unwind-protect
(cl-letf (((symbol-function 'featurep)
(lambda (sym) (not (eq sym 'projectile))))
((symbol-function 'read-file-name)
(lambda (&rest _) target))
((symbol-function 'gptel-add-file)
(lambda (f) (setq added f)))
((symbol-function 'message) #'ignore))
(cj/gptel-add-file))
(delete-file target))
(should (equal added target))))
;;; cj/gptel-add-this-buffer
(ert-deftest test-ai-add-this-buffer-calls-gptel-add-with-prefix ()
"Normal: add-this-buffer calls `gptel-add' with the prefix-arg form."
(let (gptel-add-args msg)
(cl-letf (((symbol-function 'require) (lambda (&rest _) t))
((symbol-function 'gptel-add)
(lambda (&rest args) (setq gptel-add-args args)))
((symbol-function 'message)
(lambda (fmt &rest args) (setq msg (apply #'format fmt args)))))
(cj/gptel-add-this-buffer))
(should (equal gptel-add-args '((4))))
(should (string-match-p "to GPTel context" msg))))
;;; cj/toggle-gptel
(ert-deftest test-ai-toggle-gptel-hides-when-visible ()
"Normal: when the AI buffer is showing in a window, toggle hides it."
(let ((buffer (get-buffer-create "*AI-Assistant*"))
deleted-window)
(unwind-protect
(cl-letf (((symbol-function 'get-buffer-window)
(lambda (&rest _) 'fake-window))
((symbol-function 'delete-window)
(lambda (w) (setq deleted-window w))))
(cj/toggle-gptel))
(kill-buffer buffer))
(should (eq deleted-window 'fake-window))))
;;; cj/gptel-context-clear
(ert-deftest test-ai-context-clear-uses-remove-all-when-available ()
"Normal: with `gptel-context-remove-all' present, it is called."
(let (called msg)
(cl-letf (((symbol-function 'gptel-context-remove-all)
(lambda () (setq called t)))
((symbol-function 'call-interactively)
(lambda (fn) (funcall fn)))
((symbol-function 'message)
(lambda (fmt &rest args) (setq msg (apply #'format fmt args)))))
(cj/gptel-context-clear))
(should called)
(should (string-match-p "cleared" msg))))
(ert-deftest test-ai-context-clear-resets-alist-as-fallback ()
"Boundary: when no clear function exists but the alist does, it gets
nilled directly."
(let ((gptel-context--alist '("item1" "item2"))
msg)
;; Make sure the fboundp branches are skipped.
(cl-letf (((symbol-function 'fboundp)
(lambda (sym)
(not (memq sym '(gptel-context-remove-all
gptel-context-clear)))))
((symbol-function 'message)
(lambda (fmt &rest args) (setq msg (apply #'format fmt args)))))
(cj/gptel-context-clear))
(should-not gptel-context--alist)
(should (string-match-p "cleared" msg))))
(provide 'test-ai-config-commands)
;;; test-ai-config-commands.el ends here
|
