blob: 826edbd69de0559e5d4994f103e33dad514d6ff3 (
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
|
;;; test-font-config--frame-lifecycle.el --- Tests for the lifted font frame helpers -*- lexical-binding: t; -*-
;;; Commentary:
;; cj/apply-font-settings-to-frame, cj/cleanup-frame-list, and
;; cj/maybe-install-all-the-icons-fonts were defined inside use-package
;; :config / with-eval-after-load (unreachable under `make test'). Lifting
;; them to top level makes their branching unit-testable; env-gui-p and the
;; package side-effect calls are mocked at the boundary.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'font-config)
(defvar cj/fontaine-configured-frames)
(ert-deftest test-font-cleanup-frame-list-removes-frame ()
"Normal: cleanup drops the given frame from the configured list."
(let ((cj/fontaine-configured-frames '(fr1 fr2 fr3)))
(cj/cleanup-frame-list 'fr2)
(should (equal cj/fontaine-configured-frames '(fr1 fr3)))))
(ert-deftest test-font-apply-gui-unconfigured-sets-preset ()
"Normal: a GUI frame not yet configured gets the preset and is tracked."
(let ((cj/fontaine-configured-frames nil)
(called nil))
(cl-letf (((symbol-function 'env-gui-p) (lambda () t))
((symbol-function 'fontaine-set-preset) (lambda (_p) (setq called t))))
(cj/apply-font-settings-to-frame (selected-frame)))
(should called)
(should (member (selected-frame) cj/fontaine-configured-frames))))
(ert-deftest test-font-apply-already-configured-is-noop ()
"Boundary: an already-configured frame is not re-preset."
(let ((cj/fontaine-configured-frames (list (selected-frame)))
(called nil))
(cl-letf (((symbol-function 'env-gui-p) (lambda () t))
((symbol-function 'fontaine-set-preset) (lambda (_p) (setq called t))))
(cj/apply-font-settings-to-frame (selected-frame)))
(should-not called)))
(ert-deftest test-font-apply-non-gui-is-noop ()
"Boundary: without a GUI nothing is applied or tracked."
(let ((cj/fontaine-configured-frames nil)
(called nil))
(cl-letf (((symbol-function 'env-gui-p) (lambda () nil))
((symbol-function 'fontaine-set-preset) (lambda (_p) (setq called t))))
(cj/apply-font-settings-to-frame (selected-frame)))
(should-not called)
(should-not (member (selected-frame) cj/fontaine-configured-frames))))
(ert-deftest test-font-maybe-install-icons-gui-missing-installs ()
"Normal: GUI present and font missing triggers the install."
(let ((installed nil))
(cl-letf (((symbol-function 'env-gui-p) (lambda () t))
((symbol-function 'cj/font-installed-p) (lambda (_n) nil))
((symbol-function 'all-the-icons-install-fonts) (lambda (&rest _) (setq installed t)))
((symbol-function 'remove-hook) #'ignore))
(cj/maybe-install-all-the-icons-fonts))
(should installed)))
(ert-deftest test-font-maybe-install-icons-already-present-skips ()
"Boundary: an installed font means no install attempt."
(let ((installed nil))
(cl-letf (((symbol-function 'env-gui-p) (lambda () t))
((symbol-function 'cj/font-installed-p) (lambda (_n) t))
((symbol-function 'all-the-icons-install-fonts) (lambda (&rest _) (setq installed t))))
(cj/maybe-install-all-the-icons-fonts))
(should-not installed)))
(provide 'test-font-config--frame-lifecycle)
;;; test-font-config--frame-lifecycle.el ends here
|
