blob: f33a475abc228b81b6e046cca5edee2b40b521f9 (
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
|
;;; test-auto-dim-config.el --- Tests for the auto-dim-other-buffers config -*- lexical-binding: t; -*-
;;; Commentary:
;; auto-dim-config configures the local auto-dim-other-buffers fork: dim only
;; non-selected windows within Emacs (not the whole frame on focus-out), drop
;; fringe from the dimmed faces to avoid flicker on this non-pgtk build, and
;; enable the global mode. Guarded with `skip-unless' because the fork lives
;; in ~/code and may be absent on a clean checkout.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(defconst test-auto-dim--fork
(expand-file-name "~/code/auto-dim-other-buffers.el")
"Local fork directory the module loads via `:load-path'.")
(ert-deftest test-auto-dim-config-applies-settings ()
"Normal: loading the module enables the mode with the chosen settings."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(unwind-protect
(progn
(should (bound-and-true-p auto-dim-other-buffers-mode))
(should (null auto-dim-other-buffers-dim-on-focus-out))
(should (eq t auto-dim-other-buffers-dim-on-switch-to-minibuffer))
(should-not (assq 'fringe auto-dim-other-buffers-affected-faces)))
(when (fboundp 'auto-dim-other-buffers-mode)
(auto-dim-other-buffers-mode -1))))
(ert-deftest test-auto-dim-config-vterm-dimmed-p-all-windows-dimmed ()
"Normal: a vterm buffer is dimmed when all displayed windows are dimmed."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let ((major-mode 'vterm-mode))
(cl-letf (((symbol-function 'get-buffer-window-list)
(lambda (&rest _) '(left right)))
((symbol-function 'window-parameter)
(lambda (window parameter)
(and (eq parameter 'adob--dim)
(memq window '(left right))))))
(should (cj/auto-dim--vterm-buffer-dimmed-p)))))
(ert-deftest test-auto-dim-config-vterm-dimmed-p-undimmed-window-keeps-buffer-bright ()
"Normal: a selected/undimmed vterm window keeps the buffer bright."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let ((major-mode 'vterm-mode))
(cl-letf (((symbol-function 'get-buffer-window-list)
(lambda (&rest _) '(left right)))
((symbol-function 'window-parameter)
(lambda (window parameter)
(and (eq parameter 'adob--dim)
(eq window 'right)))))
(should-not (cj/auto-dim--vterm-buffer-dimmed-p)))))
(ert-deftest test-auto-dim-config-vterm-get-color-dims-only-dimmed-vterm-buffers ()
"Normal: vterm color advice dims only buffers marked dimmed."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let ((major-mode 'vterm-mode)
(cj/auto-dim-vterm-foreground-blend 1.0))
(cl-letf (((symbol-function 'cj/auto-dim--vterm-buffer-dimmed-p)
(lambda () t))
((symbol-function 'cj/auto-dim--face-color)
(lambda (&rest _) "#555555")))
(should (equal "#555555"
(cj/auto-dim--vterm-get-color
(lambda (&rest _) "#ffffff") 7 :foreground))))
(cl-letf (((symbol-function 'cj/auto-dim--vterm-buffer-dimmed-p)
(lambda () nil)))
(should (equal "#ffffff"
(cj/auto-dim--vterm-get-color
(lambda (&rest _) "#ffffff") 7 :foreground))))))
(ert-deftest test-auto-dim-config-vterm-post-command-schedules-refresh-on-window-change ()
"Normal: post-command vterm refresh schedules only after selection changes."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let ((cj/auto-dim--last-selected-window 'old)
(calls 0))
(cl-letf (((symbol-function 'selected-window)
(lambda () 'new))
((symbol-function 'cj/auto-dim--schedule-vterm-refresh)
(lambda (&optional _) (setq calls (1+ calls)))))
(cj/auto-dim--refresh-vterm-on-command)
(cj/auto-dim--refresh-vterm-on-command))
(should (eq cj/auto-dim--last-selected-window 'new))
(should (= calls 1))))
(ert-deftest test-auto-dim-config-vterm-refresh-runs-auto-dim-before-invalidate ()
"Normal: deferred vterm refresh updates auto-dim before invalidating vterm."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let (events)
(cl-letf (((symbol-function 'adob--update)
(lambda () (push 'adob events)))
((symbol-function 'cj/auto-dim--refresh-vterm-windows)
(lambda (&optional _) (push 'vterm events))))
(cj/auto-dim--refresh-vterm-after-auto-dim))
(should (equal events '(vterm adob)))))
(ert-deftest test-auto-dim-config-vterm-refresh-nudges-size-for-full-redraw ()
"Normal: vterm refresh nudges size to force full-grid redraw."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let ((calls nil)
(vterm-min-window-width 80))
(with-temp-buffer
(setq major-mode 'vterm-mode)
(setq-local vterm--term 'term)
(let ((buffer (current-buffer)))
(cl-letf (((symbol-function 'window-list)
(lambda (&rest _) '(vterm-window)))
((symbol-function 'window-buffer)
(lambda (_) buffer))
((symbol-function 'window-live-p)
(lambda (_) t))
((symbol-function 'window-body-height)
(lambda (_) 24))
((symbol-function 'window-body-width)
(lambda (_) 100))
((symbol-function 'vterm--get-margin-width)
(lambda () 3))
((symbol-function 'vterm--set-size)
(lambda (term height width)
(push (list term height width) calls))))
(cj/auto-dim--refresh-vterm-windows))))
(should (equal (nreverse calls)
'((term 25 97)
(term 24 97))))))
(provide 'test-auto-dim-config)
;;; test-auto-dim-config.el ends here
|
