blob: 606972be3fa6bfea3d018d25a6657132e5436868 (
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
202
203
204
205
206
207
208
209
|
;;; test-undead-buffers.el --- -*- coding: utf-8; lexical-binding: t; -*-
;;; Commentary:
;;
;;; Code:
(require 'ert)
(require 'cl-lib)
(require 'undead-buffers)
(ert-deftest undead-buffers/kill-or-bury-when-not-in-list-kills ()
"cj/kill-buffer-or-bury-alive should kill a buffer not in `cj/buffer-bury-alive-list'."
(let* ((buf (generate-new-buffer "test-not-in-list"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(unwind-protect
(progn
(should (buffer-live-p buf))
(cj/kill-buffer-or-bury-alive (buffer-name buf))
(should-not (buffer-live-p buf)))
(setq cj/buffer-bury-alive-list orig)
(when (buffer-live-p buf) (kill-buffer buf)))))
(ert-deftest undead-buffers/kill-or-bury-when-in-list-buries ()
"cj/kill-buffer-or-bury-alive should bury (not kill) a buffer in the list."
(let* ((name "*dashboard*") ; an element already in the default list
(buf (generate-new-buffer name))
(orig (copy-sequence cj/buffer-bury-alive-list))
win-was)
(unwind-protect
(progn
(add-to-list 'cj/buffer-bury-alive-list name)
;; show it in a temporary window so we can detect bury
(setq win-was (display-buffer buf))
(cj/kill-buffer-or-bury-alive name)
;; bury should leave it alive
(should (buffer-live-p buf))
;; note: Emacs’s `bury-buffer` does not delete windows by default,
;; so we no longer assert that no window shows it.
)
;; cleanup
(setq cj/buffer-bury-alive-list orig)
(delete-windows-on buf)
(kill-buffer buf))))
(ert-deftest undead-buffers/kill-or-bury-adds-to-list-with-prefix ()
"Calling `cj/kill-buffer-or-bury-alive' with a prefix arg should add the buffer to the list."
(let* ((buf (generate-new-buffer "test-add-prefix"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(unwind-protect
(progn
(let ((current-prefix-arg '(4)))
(cj/kill-buffer-or-bury-alive (buffer-name buf)))
(should (member (buffer-name buf) cj/buffer-bury-alive-list)))
(setq cj/buffer-bury-alive-list orig)
(kill-buffer buf))))
(ert-deftest undead-buffers/kill-buffer-and-window-removes-window ()
"cj/kill-buffer-and-window should delete the current window and kill/bury its buffer."
(let* ((buf (generate-new-buffer "test-kill-and-win"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(split-window) ; now two windows
(let ((win (next-window)))
(set-window-buffer win buf)
(select-window win)
(cj/kill-buffer-and-window)
(should-not (window-live-p win))
(unless (member (buffer-name buf) orig)
(should-not (buffer-live-p buf))))
(setq cj/buffer-bury-alive-list orig)))
(ert-deftest undead-buffers/kill-other-window-deletes-that-window ()
"cj/kill-other-window should delete the *other* window and kill/bury its buffer."
(let* ((buf1 (current-buffer))
(buf2 (generate-new-buffer "test-other-window"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(split-window)
(let* ((win1 (selected-window))
(win2 (next-window win1)))
(set-window-buffer win2 buf2)
;; stay on the original window
(select-window win1)
(cj/kill-other-window)
(should-not (window-live-p win2))
(unless (member (buffer-name buf2) orig)
(should-not (buffer-live-p buf2))))
(setq cj/buffer-bury-alive-list orig)))
(ert-deftest undead-buffers/kill-all-other-buffers-and-windows-keeps-only-current ()
"cj/kill-all-other-buffers-and-windows should delete other windows and kill/bury all other buffers."
(let* ((main (current-buffer))
(extra (generate-new-buffer "test-all-others"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(split-window)
(set-window-buffer (next-window) extra)
(cj/kill-all-other-buffers-and-windows)
(should (one-window-p))
;; main buffer still exists
(should (buffer-live-p main))
;; extra buffer either buried or killed
(unless (member (buffer-name extra) orig)
(should-not (buffer-live-p extra)))
;; cleanup
(setq cj/buffer-bury-alive-list orig)
(when (buffer-live-p extra) (kill-buffer extra))))
;; --------------------------------- ERT Tests ---------------------------------
;; Run these tests with M-x ert RET t RET
(require 'ert)
(require 'cl-lib)
(ert-deftest undead-buffers/kill-or-bury-when-not-in-list-kills ()
"cj/kill-buffer-or-bury-alive should kill a buffer not in `cj/buffer-bury-alive-list'."
(let* ((buf (generate-new-buffer "test-not-in-list"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(unwind-protect
(progn
(should (buffer-live-p buf))
(cj/kill-buffer-or-bury-alive (buffer-name buf))
(should-not (buffer-live-p buf)))
(setq cj/buffer-bury-alive-list orig)
(when (buffer-live-p buf) (kill-buffer buf)))))
(ert-deftest undead-buffers/kill-or-bury-when-in-list-buries ()
"cj/kill-buffer-or-bury-alive should bury (not kill) a buffer in the list."
(let* ((name "*dashboard*") ; an element already in the default list
(buf (generate-new-buffer name))
(orig (copy-sequence cj/buffer-bury-alive-list))
win-was)
(unwind-protect
(progn
(add-to-list 'cj/buffer-bury-alive-list name)
;; show it in a temporary window so we can detect bury
(setq win-was (display-buffer buf))
(cj/kill-buffer-or-bury-alive name)
;; bury should leave it alive
(should (buffer-live-p buf))
;; note: Emacs’s `bury-buffer` does not delete windows by default,
;; so we no longer assert that no window shows it.
)
;; cleanup
(setq cj/buffer-bury-alive-list orig)
(delete-windows-on buf)
(kill-buffer buf))))
(ert-deftest undead-buffers/kill-or-bury-adds-to-list-with-prefix ()
"Calling `cj/kill-buffer-or-bury-alive' with a prefix arg should add the buffer to the list."
(let* ((buf (generate-new-buffer "test-add-prefix"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(unwind-protect
(progn
(let ((current-prefix-arg '(4)))
(cj/kill-buffer-or-bury-alive (buffer-name buf)))
(should (member (buffer-name buf) cj/buffer-bury-alive-list)))
(setq cj/buffer-bury-alive-list orig)
(kill-buffer buf))))
(ert-deftest undead-buffers/kill-buffer-and-window-removes-window ()
"cj/kill-buffer-and-window should delete the current window and kill/bury its buffer."
(let* ((buf (generate-new-buffer "test-kill-and-win"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(split-window) ; now two windows
(let ((win (next-window)))
(set-window-buffer win buf)
(select-window win)
(cj/kill-buffer-and-window)
(should-not (window-live-p win))
(unless (member (buffer-name buf) orig)
(should-not (buffer-live-p buf))))
(setq cj/buffer-bury-alive-list orig)))
(ert-deftest undead-buffers/kill-other-window-deletes-that-window ()
"cj/kill-other-window should delete the *other* window and kill/bury its buffer."
(let* ((buf1 (current-buffer))
(buf2 (generate-new-buffer "test-other-window"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(split-window)
(let* ((win1 (selected-window))
(win2 (next-window win1)))
(set-window-buffer win2 buf2)
;; stay on the original window
(select-window win1)
(cj/kill-other-window)
(should-not (window-live-p win2))
(unless (member (buffer-name buf2) orig)
(should-not (buffer-live-p buf2))))
(setq cj/buffer-bury-alive-list orig)))
(ert-deftest undead-buffers/kill-all-other-buffers-and-windows-keeps-only-current ()
"cj/kill-all-other-buffers-and-windows should delete other windows and kill/bury all other buffers."
(let* ((main (current-buffer))
(extra (generate-new-buffer "test-all-others"))
(orig (copy-sequence cj/buffer-bury-alive-list)))
(split-window)
(set-window-buffer (next-window) extra)
(cj/kill-all-other-buffers-and-windows)
(should (one-window-p))
;; main buffer still exists
(should (buffer-live-p main))
;; extra buffer either buried or killed
(unless (member (buffer-name extra) orig)
(should-not (buffer-live-p extra)))
;; cleanup
(setq cj/buffer-bury-alive-list orig)
(when (buffer-live-p extra) (kill-buffer extra))))
(provide 'test-undead-buffers)
;;; test-undead-buffers.el ends here.
|
