blob: 6a02d838c6b2c352cf7935af79881fec647c2b36 (
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
|
;;; test-pdf-config--reading-palette.el --- pdf reading-palette tests -*- lexical-binding: t; -*-
;;; Commentary:
;; Pure-logic tests for the pdf-view reading-palette layer: name->colors
;; resolution, the shipped default and order, and the cycle (palettes, then the
;; no-palette state, wrapping). The live application (which drives
;; `pdf-view-midnight-minor-mode') is exercised in the daemon, not here.
;;
;; Requires pdf-config, which uses use-package for pdf-tools; `make test' runs
;; without the implicit package-initialize, so bootstrap `package' first (the
;; shared format-wiring helper). pdf-tools is loaded lazily (:defer t), so this
;; only needs the pure top-level helpers, not the pdf-view runtime.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(add-to-list 'load-path (expand-file-name "tests" user-emacs-directory))
(require 'testutil-format-wiring)
(format-test--ensure-packages-init)
(require 'pdf-config)
(declare-function cj/pdf--reading-palette-colors "pdf-config" (name))
(declare-function cj/pdf--next-reading-palette "pdf-config" (current names))
(defvar cj/pdf-reading-palettes)
(defvar cj/pdf-reading-default-palette)
;;; ------------------------ cj/pdf--reading-palette-colors --------------------
(ert-deftest test-pdf-reading-palette-colors-known ()
"Normal: a known palette resolves to a (FG . BG) cons of two strings."
(let ((colors (cj/pdf--reading-palette-colors "dark")))
(should (consp colors))
(should (stringp (car colors)))
(should (stringp (cdr colors)))))
(ert-deftest test-pdf-reading-palette-colors-unknown ()
"Error: an unknown palette name resolves to nil."
(should-not (cj/pdf--reading-palette-colors "nope")))
(ert-deftest test-pdf-reading-palette-colors-nil ()
"Boundary: a nil name (the no-palette state) resolves to nil."
(should-not (cj/pdf--reading-palette-colors nil)))
;;; --------------------------- shipped default + order ------------------------
(ert-deftest test-pdf-reading-default-is-dark ()
"Normal: a fresh PDF opens on the dark palette."
(should (equal cj/pdf-reading-default-palette "dark")))
(ert-deftest test-pdf-reading-order-is-dark-sepia-light ()
"Normal: the shipped palette order is dark, then sepia, then light."
(should (equal (mapcar #'car cj/pdf-reading-palettes)
'("dark" "sepia" "light"))))
;;; ------------------------- cj/pdf--next-reading-palette ---------------------
(ert-deftest test-pdf-reading-next-palette-advances ()
"Normal: cycles to the next palette in order."
(should (equal (cj/pdf--next-reading-palette "dark" '("dark" "sepia" "light"))
"sepia")))
(ert-deftest test-pdf-reading-next-palette-last-to-none ()
"Boundary: the last palette cycles to the no-palette state (nil)."
(should-not (cj/pdf--next-reading-palette "light" '("dark" "sepia" "light"))))
(ert-deftest test-pdf-reading-next-palette-none-to-first ()
"Boundary: the no-palette state (nil) cycles to the first palette."
(should (equal (cj/pdf--next-reading-palette nil '("dark" "sepia" "light"))
"dark")))
(ert-deftest test-pdf-reading-next-palette-unknown-current-falls-to-first ()
"Error: an unknown current palette falls back to the first."
(should (equal (cj/pdf--next-reading-palette "gone" '("dark" "sepia" "light"))
"dark")))
(ert-deftest test-pdf-reading-cycle-from-default ()
"Normal: cycling from the default advances dark -> sepia -> light -> none -> dark."
(let ((names (mapcar #'car cj/pdf-reading-palettes)))
(should (equal (cj/pdf--next-reading-palette "dark" names) "sepia"))
(should (equal (cj/pdf--next-reading-palette "sepia" names) "light"))
(should-not (cj/pdf--next-reading-palette "light" names))
(should (equal (cj/pdf--next-reading-palette nil names) "dark"))))
(provide 'test-pdf-config--reading-palette)
;;; test-pdf-config--reading-palette.el ends here
|
