blob: 580a7711aafd2106b5f6b851f45f3ae508f0063b (
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
|
;;; test-modeline-config-segments.el --- small modeline segments -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for the small pure segment helpers added in the 2026-07-01
;; modeline overhaul: macro indicator, remote-host tag, narrowing
;; indicator, position/region info, and the padding space.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'modeline-config)
;; ---------------------------- Macro Indicator --------------------------------
(ert-deftest test-modeline-config-macro-indicator-shows-when-defining ()
"Normal: MACRO text with the error face while a macro is recording."
(let ((defining-kbd-macro t))
(let ((s (cj/--modeline-macro-indicator)))
(should (stringp s))
(should (string-match-p "MACRO" s))
(should (eq (get-text-property (string-match "MACRO" s) 'face s)
'error)))))
(ert-deftest test-modeline-config-macro-indicator-nil-when-idle ()
"Boundary: nil when no macro is being defined."
(let ((defining-kbd-macro nil))
(should-not (cj/--modeline-macro-indicator))))
;; ---------------------------- Remote Host Tag --------------------------------
(ert-deftest test-modeline-config-remote-host-shows-host ()
"Normal: remote default-directory yields an @host tag."
(with-temp-buffer
(setq default-directory "/ssh:velox:/home/cjennings/")
(let ((s (cj/--modeline-remote-host)))
(should (stringp s))
(should (string-match-p "@velox" s)))))
(ert-deftest test-modeline-config-remote-host-nil-when-local ()
"Boundary: nil for a local directory."
(with-temp-buffer
(setq default-directory "/tmp/")
(should-not (cj/--modeline-remote-host))))
;; --------------------------- Narrowing Indicator -----------------------------
(ert-deftest test-modeline-config-narrow-indicator-shows-when-narrowed ()
"Normal: narrowed buffer yields the Narrow tag."
(with-temp-buffer
(insert "line one\nline two\nline three\n")
(narrow-to-region 1 9)
(let ((s (cj/--modeline-narrow-indicator)))
(should (stringp s))
(should (string-match-p "Narrow" s)))))
(ert-deftest test-modeline-config-narrow-indicator-nil-when-widened ()
"Boundary: nil when the buffer is not narrowed."
(with-temp-buffer
(insert "text")
(should-not (cj/--modeline-narrow-indicator))))
;; --------------------------- Position / Region Info ---------------------------
(ert-deftest test-modeline-config-position-info-line-column-percent ()
"Normal: no region yields L: C: plus a percentage-through-buffer."
(with-temp-buffer
(insert (make-string 200 ?x))
(goto-char (point-min))
(deactivate-mark)
(let ((s (cj/--modeline-position-info)))
(should (stringp s))
(should (string-match-p "L:" s))
(should (string-match-p "C:" s))
;; point-based percent, %%-escaped for the mode-line construct pass
(should (string-match-p "%" s)))))
(ert-deftest test-modeline-config-position-info-region-lines-chars ()
"Normal: an active region yields selection info instead of position."
(with-temp-buffer
(insert "one\ntwo\nthree\n")
(goto-char (point-min))
(push-mark (point) t t)
(goto-char 9) ; through "one\ntwo\n"
(let ((transient-mark-mode t))
(let ((s (cj/--modeline-position-info)))
(should (stringp s))
(should (string-match-p "2 lines" s))
(should (string-match-p "8 chars" s))))))
(ert-deftest test-modeline-config-position-info-single-char-region ()
"Boundary: a one-char region reports 1 line, 1 char."
(with-temp-buffer
(insert "abc")
(goto-char 1)
(push-mark (point) t t)
(goto-char 2)
(let ((transient-mark-mode t))
(let ((s (cj/--modeline-position-info)))
(should (string-match-p "1 line" s))
(should (string-match-p "1 char" s))))))
;; ------------------------------- Padding --------------------------------------
(ert-deftest test-modeline-config-padding-carries-height-display ()
"Normal: padding space carries a display height property."
(let ((cj/modeline-height-factor 1.2))
(let ((s (cj/--modeline-padding)))
(should (stringp s))
(should (get-text-property 0 'display s)))))
(ert-deftest test-modeline-config-padding-plain-at-factor-one ()
"Boundary: factor 1.0 (or nil) yields a plain space, no display prop."
(let ((cj/modeline-height-factor 1.0))
(let ((s (cj/--modeline-padding)))
(should (stringp s))
(should-not (get-text-property 0 'display s)))))
(provide 'test-modeline-config-segments)
;;; test-modeline-config-segments.el ends here
|
