blob: 09378b0d1e4d021344b20422d6a1fbb5a9b51df2 (
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
123
124
125
126
127
128
129
130
131
132
|
;;; test-modeline-config-string-truncate-p.el --- Tests for cj/modeline-string-truncate-p -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for the cj/modeline-string-truncate-p function from modeline-config.el
;;
;; This function returns non-nil when ALL conditions are met:
;; 1. STR is a string
;; 2. STR is not empty
;; 3. Window is narrow (< 100 chars via cj/modeline-window-narrow-p)
;; 4. String length exceeds cj/modeline-string-truncate-length
;; 5. Not in a single-window frame (one-window-p returns nil)
;;
;; We mock window functions to isolate the logic.
;;; Code:
(require 'ert)
;; Add modules directory to load path
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
;; Stub dependencies before loading the module
(unless (boundp 'cj/buffer-status-colors)
(defvar cj/buffer-status-colors
'((unmodified . "#FFFFFF")
(modified . "#00FF00")
(read-only . "#FF0000")
(overwrite . "#FFD700"))))
(require 'modeline-config)
;;; Test Helpers
(defmacro with-window-state (narrow-p one-window-p &rest body)
"Execute BODY with mocked window state.
NARROW-P controls `cj/modeline-window-narrow-p' return value.
ONE-WINDOW-P controls `one-window-p' return value."
(declare (indent 2))
`(cl-letf (((symbol-function 'cj/modeline-window-narrow-p)
(lambda () ,narrow-p))
((symbol-function 'one-window-p)
(lambda (&rest _args) ,one-window-p)))
,@body))
;;; Normal Cases - All conditions met (should return non-nil)
(ert-deftest test-modeline-config-string-truncate-p-normal-long-string-narrow-multi-window ()
"Should return non-nil when string is long, window is narrow, and multiple windows."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 12))
(should (cj/modeline-string-truncate-p "a-very-long-filename.el")))))
(ert-deftest test-modeline-config-string-truncate-p-normal-exactly-over-length ()
"Should return non-nil when string is one char over truncation length."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 12))
(should (cj/modeline-string-truncate-p "1234567890123"))))) ; 13 chars
;;; Normal Cases - Conditions not met (should return nil)
(ert-deftest test-modeline-config-string-truncate-p-normal-short-string ()
"Should return nil when string is shorter than truncation length."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 12))
(should-not (cj/modeline-string-truncate-p "init.el")))))
(ert-deftest test-modeline-config-string-truncate-p-normal-wide-window ()
"Should return nil when window is wide (not narrow)."
(with-window-state nil nil
(let ((cj/modeline-string-truncate-length 12))
(should-not (cj/modeline-string-truncate-p "a-very-long-filename.el")))))
(ert-deftest test-modeline-config-string-truncate-p-normal-single-window ()
"Should return nil when only one window is open."
(with-window-state t t
(let ((cj/modeline-string-truncate-length 12))
(should-not (cj/modeline-string-truncate-p "a-very-long-filename.el")))))
;;; Boundary Cases
(ert-deftest test-modeline-config-string-truncate-p-boundary-exact-length ()
"Should return nil when string is exactly at truncation length."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 12))
(should-not (cj/modeline-string-truncate-p "123456789012"))))) ; exactly 12
(ert-deftest test-modeline-config-string-truncate-p-boundary-empty-string ()
"Should return nil for empty string."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 12))
(should-not (cj/modeline-string-truncate-p "")))))
(ert-deftest test-modeline-config-string-truncate-p-boundary-single-char ()
"Should return nil for single character string."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 12))
(should-not (cj/modeline-string-truncate-p "x")))))
(ert-deftest test-modeline-config-string-truncate-p-boundary-truncate-length-1 ()
"Should return non-nil for any string > 1 when truncation length is 1."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 1))
(should (cj/modeline-string-truncate-p "ab")))))
(ert-deftest test-modeline-config-string-truncate-p-boundary-truncate-length-0 ()
"Should return non-nil for any non-empty string when truncation length is 0."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 0))
(should (cj/modeline-string-truncate-p "a")))))
;;; Error Cases
(ert-deftest test-modeline-config-string-truncate-p-error-nil-input ()
"Should return nil for nil input."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 12))
(should-not (cj/modeline-string-truncate-p nil)))))
(ert-deftest test-modeline-config-string-truncate-p-error-number-input ()
"Should return nil for number input."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 12))
(should-not (cj/modeline-string-truncate-p 42)))))
(ert-deftest test-modeline-config-string-truncate-p-error-symbol-input ()
"Should return nil for symbol input."
(with-window-state t nil
(let ((cj/modeline-string-truncate-length 12))
(should-not (cj/modeline-string-truncate-p 'some-symbol)))))
(provide 'test-modeline-config-string-truncate-p)
;;; test-modeline-config-string-truncate-p.el ends here
|
