blob: 94ea741710fcb94d144a0c1ea407637aeb1457b1 (
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
|
;;; 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))
(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
|
