blob: 532e7dfaee46adf58f4c37170fd39d616f58cdc0 (
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
|
;;; 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.
;;
;; The vterm dim-integration tests were removed when the terminal engine moved
;; to ghostel: ghostel bakes its palette per-terminal (no per-window color
;; hook), so terminal buffers no longer participate in window dimming.
;;; 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-never-dim-dashboard-exempts-dashboard ()
"Normal: the *dashboard* buffer is exempt from dimming."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let* ((existed (get-buffer "*dashboard*"))
(buffer (or existed (get-buffer-create "*dashboard*"))))
(unwind-protect
(should (cj/auto-dim--never-dim-dashboard-p buffer))
(unless existed (kill-buffer buffer)))))
(ert-deftest test-auto-dim-config-never-dim-dashboard-near-miss-name-dims ()
"Boundary: a buffer whose name only resembles the dashboard is not exempt."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let ((buffer (get-buffer-create "dashboard")))
(unwind-protect
(should-not (cj/auto-dim--never-dim-dashboard-p buffer))
(kill-buffer buffer))))
(ert-deftest test-auto-dim-config-never-dim-dashboard-other-buffer-dims ()
"Error: an ordinary buffer is not exempt from dimming."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(with-temp-buffer
(should-not (cj/auto-dim--never-dim-dashboard-p (current-buffer)))))
(provide 'test-auto-dim-config)
;;; test-auto-dim-config.el ends here
|
