blob: 05ed95950562773153a8bc8c3b47de614836da18 (
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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
;;; test-cj-window-geometry-lib.el --- Tests for the shared window-geometry helpers -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests the pure helpers in `cj-window-geometry-lib.el':
;; `cj/window-direction', `cj/window-body-size',
;; `cj/cardinal-to-edge-direction', and `cj/window-at-edge'.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'cj-window-geometry-lib)
(ert-deftest test-cj-window-geometry--direction-right-split ()
"Normal: 2-window vertical split, right-side window -> right."
(save-window-excursion
(delete-other-windows)
(let ((right (split-window (selected-window) nil 'right)))
(should (eq (cj/window-direction right) 'right)))))
(ert-deftest test-cj-window-geometry--direction-left-split ()
"Normal: 2-window vertical split, left-side window -> left."
(save-window-excursion
(delete-other-windows)
(split-window (selected-window) nil 'right)
(should (eq (cj/window-direction (selected-window)) 'left))))
(ert-deftest test-cj-window-geometry--direction-below-split ()
"Normal: 2-window horizontal split, bottom window -> below."
(save-window-excursion
(delete-other-windows)
(let ((below (split-window (selected-window) nil 'below)))
(should (eq (cj/window-direction below) 'below)))))
(ert-deftest test-cj-window-geometry--direction-above-split ()
"Normal: 2-window horizontal split, top window -> above."
(save-window-excursion
(delete-other-windows)
(split-window (selected-window) nil 'below)
(should (eq (cj/window-direction (selected-window)) 'above))))
(ert-deftest test-cj-window-geometry--direction-single-window-default-right ()
"Boundary: single-window frame, no DEFAULT arg -> 'right."
(save-window-excursion
(delete-other-windows)
(should (eq (cj/window-direction (selected-window)) 'right))))
(ert-deftest test-cj-window-geometry--direction-single-window-with-default ()
"Boundary: single-window frame with DEFAULT='below -> 'below."
(save-window-excursion
(delete-other-windows)
(should (eq (cj/window-direction (selected-window) 'below) 'below))))
(ert-deftest test-cj-window-geometry--body-size-right-returns-body-cols ()
"Normal: right window with direction='right -> body-width in cols."
(save-window-excursion
(delete-other-windows)
(let ((right (split-window (selected-window) nil 'right)))
(should (= (cj/window-body-size right 'right)
(window-body-width right))))))
(ert-deftest test-cj-window-geometry--body-size-below-returns-body-lines ()
"Normal: below window with direction='below -> body-height in lines."
(save-window-excursion
(delete-other-windows)
(let ((below (split-window (selected-window) nil 'below)))
(should (= (cj/window-body-size below 'below)
(window-body-height below))))))
(ert-deftest test-cj-window-geometry--body-size-narrow-window ()
"Normal: deliberately narrow right window -> matching body cols."
(save-window-excursion
(delete-other-windows)
(let* ((frame-w (frame-width))
(target-cols (/ frame-w 4))
(right (split-window (selected-window) (- target-cols) 'right)))
(should (= (cj/window-body-size right 'right)
(window-body-width right))))))
(ert-deftest test-cj-window-geometry--cardinal-to-edge-right ()
"Normal: 'right -> 'rightmost."
(should (eq (cj/cardinal-to-edge-direction 'right) 'rightmost)))
(ert-deftest test-cj-window-geometry--cardinal-to-edge-left ()
"Normal: 'left -> 'leftmost."
(should (eq (cj/cardinal-to-edge-direction 'left) 'leftmost)))
(ert-deftest test-cj-window-geometry--cardinal-to-edge-below ()
"Normal: 'below -> 'bottom."
(should (eq (cj/cardinal-to-edge-direction 'below) 'bottom)))
(ert-deftest test-cj-window-geometry--cardinal-to-edge-above ()
"Normal: 'above -> 'top."
(should (eq (cj/cardinal-to-edge-direction 'above) 'top)))
(ert-deftest test-cj-window-geometry--cardinal-to-edge-unknown-returns-nil ()
"Boundary: an unknown direction symbol -> nil."
(should (null (cj/cardinal-to-edge-direction 'sideways)))
(should (null (cj/cardinal-to-edge-direction nil))))
;; ----------------------------- cj/window-at-edge -----------------------------
(ert-deftest test-cj-window-geometry--at-edge-2col-right-returns-right-column ()
"Normal: 2-column split -> the right column is the right-edge half."
(save-window-excursion
(delete-other-windows)
(let ((right (split-window (selected-window) nil 'right)))
(should (eq (cj/window-at-edge 'right) right)))))
(ert-deftest test-cj-window-geometry--at-edge-2col-left-returns-left-column ()
"Normal: 2-column split -> the left column is the left-edge half."
(save-window-excursion
(delete-other-windows)
(let ((left (selected-window)))
(split-window (selected-window) nil 'right)
(should (eq (cj/window-at-edge 'left) left)))))
(ert-deftest test-cj-window-geometry--at-edge-2row-below-returns-bottom-row ()
"Normal: 2-row split -> the bottom row is the below-edge half."
(save-window-excursion
(delete-other-windows)
(let ((below (split-window (selected-window) nil 'below)))
(should (eq (cj/window-at-edge 'below) below)))))
(ert-deftest test-cj-window-geometry--at-edge-2row-above-returns-top-row ()
"Normal: 2-row split -> the top row is the above-edge half."
(save-window-excursion
(delete-other-windows)
(let ((top (selected-window)))
(split-window (selected-window) nil 'below)
(should (eq (cj/window-at-edge 'above) top)))))
(ert-deftest test-cj-window-geometry--at-edge-single-window-returns-nil ()
"Boundary: a single-window frame has no distinct half -> nil for all sides."
(save-window-excursion
(delete-other-windows)
(dolist (dir '(right left below above))
(should (null (cj/window-at-edge dir))))))
(ert-deftest test-cj-window-geometry--at-edge-axis-mismatch-returns-nil ()
"Boundary: a 2-row split has no right/left column; a 2-col split has no row."
(save-window-excursion
(delete-other-windows)
(split-window (selected-window) nil 'below)
(should (null (cj/window-at-edge 'right)))
(should (null (cj/window-at-edge 'left))))
(save-window-excursion
(delete-other-windows)
(split-window (selected-window) nil 'right)
(should (null (cj/window-at-edge 'below)))
(should (null (cj/window-at-edge 'above)))))
(ert-deftest test-cj-window-geometry--at-edge-nested-right-split-returns-nil ()
"Boundary: when the right side is itself split into rows, no single
window forms the full-height right half -> nil."
(save-window-excursion
(delete-other-windows)
(let ((right (split-window (selected-window) nil 'right)))
(split-window right nil 'below)
(should (null (cj/window-at-edge 'right))))))
(ert-deftest test-cj-window-geometry--at-edge-unknown-direction-returns-nil ()
"Error: an unknown direction symbol -> nil even in a split frame."
(save-window-excursion
(delete-other-windows)
(split-window (selected-window) nil 'right)
(should (null (cj/window-at-edge 'sideways)))
(should (null (cj/window-at-edge nil)))))
;; ----------------------------- window-size-fraction -----------------------------
(ert-deftest test-cj-window-geometry-size-fraction-normal ()
"Normal: a window half the frame returns 0.5."
(should (= (cj/window-size-fraction 20 40) 0.5)))
(ert-deftest test-cj-window-geometry-size-fraction-clamps-high ()
"Boundary: a near-full window is clamped to the 0.95 ceiling."
(should (= (cj/window-size-fraction 40 40) 0.95)))
(ert-deftest test-cj-window-geometry-size-fraction-clamps-low ()
"Boundary: a vanishingly small window is clamped to the 0.05 floor."
(should (= (cj/window-size-fraction 0 40) 0.05)))
(ert-deftest test-cj-window-geometry-size-fraction-custom-bounds ()
"Boundary: explicit MIN-FRAC/MAX-FRAC override the defaults."
(should (= (cj/window-size-fraction 1 40 0.1 0.9) 0.1))
(should (= (cj/window-size-fraction 39 40 0.1 0.9) 0.9)))
(ert-deftest test-cj-window-geometry-size-fraction-zero-frame-nil ()
"Error: a non-positive frame size returns nil (no divide-by-zero)."
(should (null (cj/window-size-fraction 20 0)))
(should (null (cj/window-size-fraction 20 -5))))
(ert-deftest test-cj-window-geometry-size-fraction-non-number-nil ()
"Error: non-numeric arguments return nil."
(should (null (cj/window-size-fraction nil 40)))
(should (null (cj/window-size-fraction 20 nil))))
(provide 'test-cj-window-geometry-lib)
;;; test-cj-window-geometry-lib.el ends here
|
