blob: 06e466b85cc1fda7aaff9cc79bfc9a6ab464cc68 (
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
|
;;; test-ui-buffer-status-colors.el --- Tests for buffer-status faces -*- lexical-binding: t; -*-
;;; Commentary:
;; The buffer-status state classifier (`cj/buffer-status-state'), the state->face
;; map (`cj/buffer-status-faces'), and the resolver (`cj/buffer-status-color')
;; drive both the cursor color and the modeline buffer-name color, kept in sync.
;; Theme faces (error / warning / success) replace the old hard-coded hexes so
;; the colors follow whatever theme is loaded.
;;; Code:
(require 'ert)
(require 'user-constants)
(require 'ui-config)
(require 'modeline-config)
;;; State -> face map
(ert-deftest test-buffer-status-faces-has-all-states ()
"Normal: every buffer state is mapped to a face."
(dolist (state '(read-only overwrite modified unmodified))
(should (alist-get state cj/buffer-status-faces))))
(ert-deftest test-buffer-status-faces-values-are-real-faces ()
"Normal: every mapped value is an existing face."
(dolist (entry cj/buffer-status-faces)
(should (facep (cdr entry)))))
(ert-deftest test-buffer-status-faces-mapping ()
"Normal: read-only->error, overwrite/modified->warning, unmodified->success."
(should (eq (alist-get 'read-only cj/buffer-status-faces) 'error))
(should (eq (alist-get 'overwrite cj/buffer-status-faces) 'warning))
(should (eq (alist-get 'modified cj/buffer-status-faces) 'warning))
(should (eq (alist-get 'unmodified cj/buffer-status-faces) 'success)))
;;; State classifier (the shared function, exercised directly)
(ert-deftest test-buffer-status-state-read-only ()
"Normal: a read-only buffer reports `read-only'."
(with-temp-buffer
(setq buffer-read-only t)
(should (eq (cj/buffer-status-state) 'read-only))))
(ert-deftest test-buffer-status-state-overwrite-wins-over-modified ()
"Boundary: overwrite-mode takes priority over the modified state."
(with-temp-buffer
(insert "x")
(overwrite-mode 1)
(should (eq (cj/buffer-status-state) 'overwrite))))
(ert-deftest test-buffer-status-state-modified ()
"Normal: a writeable buffer with unsaved changes reports `modified'."
(with-temp-buffer
(insert "x")
(should (eq (cj/buffer-status-state) 'modified))))
(ert-deftest test-buffer-status-state-unmodified ()
"Normal: a clean writeable buffer reports `unmodified'."
(with-temp-buffer
(set-buffer-modified-p nil)
(should (eq (cj/buffer-status-state) 'unmodified))))
(ert-deftest test-buffer-status-state-read-only-wins-over-modified ()
"Boundary: read-only takes priority over modified."
(with-temp-buffer
(insert "x")
(set-buffer-modified-p t)
(setq buffer-read-only t)
(should (eq (cj/buffer-status-state) 'read-only))))
;;; Resolver
(ert-deftest test-buffer-status-color-resolves-through-the-face ()
"Normal: the color is the mapped face's foreground."
(let ((orig (face-attribute 'error :foreground nil t)))
(unwind-protect
(progn
(set-face-foreground 'error "#abcdef")
(should (equal (cj/buffer-status-color 'read-only) "#abcdef")))
(when (stringp orig) (set-face-foreground 'error orig)))))
(ert-deftest test-buffer-status-color-nil-for-unknown-state ()
"Error: an unknown state has no face, so no color."
(should-not (cj/buffer-status-color 'nonexistent)))
;;; Modeline integration
(ert-deftest test-modeline-buffer-name-variable-exists ()
"Normal: the modeline buffer-name construct is defined."
(should (boundp 'cj/modeline-buffer-name)))
(ert-deftest test-modeline-buffer-name-is-mode-line-construct ()
"Normal: it is an :eval mode-line construct."
(should (listp cj/modeline-buffer-name))
(should (eq (car cj/modeline-buffer-name) :eval)))
(provide 'test-ui-buffer-status-colors)
;;; test-ui-buffer-status-colors.el ends here
|
