blob: 8fada25e2d52e65fe19c56923d338c7a896a4845 (
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
|
;;; test-font-config.el --- Smoke tests for font-config -*- lexical-binding: t; -*-
;;; Commentary:
;; font-config.el is mostly top-level font/package setup. These smoke tests
;; cover the logic that should stay correct regardless of which fonts are
;; installed: the install check, and the daemon-frame font applier (env-gui-p
;; guard plus idempotency). The module :demand's fontaine and all-the-icons,
;; so the tests skip when those packages are absent rather than failing on a
;; bare checkout. GUI and font lookups are stubbed so the run stays headless.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
;; font-config :demand's external packages, so make the installed packages
;; reachable; the test runners do not package-initialize themselves.
(package-initialize)
(defconst test-font-config--available
(and (locate-library "fontaine")
(locate-library "all-the-icons")
(locate-library "all-the-icons-nerd-fonts"))
"Non-nil when the packages font-config :demand's are loadable.")
;;; cj/font-installed-p
(ert-deftest test-font-config-font-installed-p-true-when-found ()
"Normal: the install check returns t when the font is found."
(skip-unless test-font-config--available)
(require 'font-config)
(cl-letf (((symbol-function 'find-font) (lambda (&rest _) t)))
(should (eq t (cj/font-installed-p "BerkeleyMono Nerd Font")))))
(ert-deftest test-font-config-font-installed-p-nil-when-absent ()
"Error: the install check returns nil when the font is missing."
(skip-unless test-font-config--available)
(require 'font-config)
(cl-letf (((symbol-function 'find-font) (lambda (&rest _) nil)))
(should (null (cj/font-installed-p "No Such Font 12345")))))
;;; cj/apply-font-settings-to-frame
(ert-deftest test-font-config-apply-font-settings-noop-without-gui ()
"Boundary: on a non-GUI frame the applier does nothing and does not error."
(skip-unless test-font-config--available)
(require 'font-config)
(let ((cj/fontaine-configured-frames nil)
(applied nil))
(cl-letf (((symbol-function 'env-gui-p) (lambda (&rest _) nil))
((symbol-function 'fontaine-set-preset)
(lambda (&rest _) (setq applied t))))
(cj/apply-font-settings-to-frame (selected-frame))
(should-not applied)
(should-not cj/fontaine-configured-frames))))
(ert-deftest test-font-config-apply-font-settings-applies-once-per-frame ()
"Normal: on a GUI frame the applier sets the preset once and is idempotent."
(skip-unless test-font-config--available)
(require 'font-config)
(let ((cj/fontaine-configured-frames nil)
(calls 0))
(cl-letf (((symbol-function 'env-gui-p) (lambda (&rest _) t))
((symbol-function 'fontaine-set-preset)
(lambda (&rest _) (setq calls (1+ calls)))))
(cj/apply-font-settings-to-frame (selected-frame))
(cj/apply-font-settings-to-frame (selected-frame))
(should (= calls 1))
(should (memq (selected-frame) cj/fontaine-configured-frames)))))
;;; cj/setup-emoji-fontset
(ert-deftest test-font-config-setup-emoji-fontset-noop-without-gui ()
"Boundary: without a GUI the emoji setup does nothing and does not error."
(skip-unless test-font-config--available)
(require 'font-config)
(let ((called nil))
(cl-letf (((symbol-function 'env-gui-p) (lambda (&rest _) nil))
((symbol-function 'set-fontset-font)
(lambda (&rest _) (setq called t))))
(cj/setup-emoji-fontset)
(should-not called))))
(ert-deftest test-font-config-setup-emoji-fontset-runs-on-gui ()
"Normal: on a GUI frame the emoji setup runs without error."
(skip-unless test-font-config--available)
(require 'font-config)
(cl-letf (((symbol-function 'env-gui-p) (lambda (&rest _) t))
((symbol-function 'font-family-list)
(lambda (&rest _) '("Noto Color Emoji")))
((symbol-function 'set-fontset-font) (lambda (&rest _) t)))
(should (progn (cj/setup-emoji-fontset) t))))
(provide 'test-font-config)
;;; test-font-config.el ends here
|
