blob: c03c58a2d9af27c51cf28d60587a9987d80a70e2 (
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-config-backend-and-model.el --- Tests for cj/gptel-backend-and-model -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for cj/gptel-backend-and-model from ai-config.el.
;;
;; Returns a formatted string "backend: model [timestamp]" for use in
;; org headings marking AI responses. Uses pcase to extract the display
;; name from vector backends, falling back to "AI" otherwise.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "tests" user-emacs-directory))
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'testutil-ai-config)
(require 'ai-config)
;;; Normal Cases
(ert-deftest test-ai-config-backend-and-model-normal-vector-backend-extracts-name ()
"Vector backend should use element at index 1 as display name."
(let ((gptel-backend (vector 'cl-struct "Claude"))
(gptel-model "claude-opus-4-6"))
(let ((result (cj/gptel-backend-and-model)))
(should (string-match-p "^Claude:" result))
(should (string-match-p "claude-opus-4-6" result)))))
(ert-deftest test-ai-config-backend-and-model-normal-contains-timestamp ()
"Result should contain a bracketed timestamp."
(let ((gptel-backend nil)
(gptel-model nil))
(should (string-match-p "\\[[-0-9]+ [0-9]+:[0-9]+:[0-9]+\\]"
(cj/gptel-backend-and-model)))))
(ert-deftest test-ai-config-backend-and-model-normal-format-structure ()
"Result should follow 'backend: model [timestamp]' format."
(let ((gptel-backend (vector 'cl-struct "TestBackend"))
(gptel-model "test-model"))
(should (string-match-p "^TestBackend: test-model \\["
(cj/gptel-backend-and-model)))))
;;; Boundary Cases
(ert-deftest test-ai-config-backend-and-model-boundary-nil-backend-shows-ai ()
"Nil backend should fall back to \"AI\" display name."
(let ((gptel-backend nil)
(gptel-model "some-model"))
(should (string-match-p "^AI:" (cj/gptel-backend-and-model)))))
(ert-deftest test-ai-config-backend-and-model-boundary-nil-model-shows-empty ()
"Nil model should produce empty string in model position."
(let ((gptel-backend nil)
(gptel-model nil))
(should (string-match-p "^AI: \\[" (cj/gptel-backend-and-model)))))
(ert-deftest test-ai-config-backend-and-model-boundary-string-backend-shows-ai ()
"String backend (not vector) should fall back to \"AI\"."
(let ((gptel-backend "just-a-string")
(gptel-model "model"))
(should (string-match-p "^AI:" (cj/gptel-backend-and-model)))))
(ert-deftest test-ai-config-backend-and-model-boundary-symbol-model-formatted ()
"Symbol model should be formatted as its print representation."
(let ((gptel-backend nil)
(gptel-model 'some-model))
(should (string-match-p "some-model" (cj/gptel-backend-and-model)))))
(ert-deftest test-ai-config-backend-and-model-boundary-timestamp-reflects-today ()
"Timestamp should contain today's date."
(let ((gptel-backend nil)
(gptel-model nil)
(today (format-time-string "%Y-%m-%d")))
(should (string-match-p (regexp-quote today)
(cj/gptel-backend-and-model)))))
(provide 'test-ai-config-backend-and-model)
;;; test-ai-config-backend-and-model.el ends here
|
