blob: d08649b7c42b78f0f9d4d8e07e5b20f16865c3ad (
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
|
;;; test-undead-buffers.el --- -*- coding: utf-8; lexical-binding: t; -*-
;;; Commentary:
;; ERT tests for undead-buffers.el.
;; Exercises kill vs bury decisions driven by cj/undead-buffer-list
;; and window-management helpers.
;; Coverage:
;; - cj/kill-buffer-or-bury-alive: kills non-listed buffers; buries listed; C-u adds to list
;; - cj/kill-buffer-and-window: deletes selected window, then kill/bury buffer as appropriate
;; - cj/kill-other-window: deletes the other window, then kill/bury that buffer
;; - cj/kill-all-other-buffers-and-windows: keeps only current window/buffer
;; Tests isolate state with temporary buffers/windows and restore cj/undead-buffer-list.
;; Note: bury-buffer does not delete windows; tests assert buffer liveness, not window removal.
;;; 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/undead-buffer-list'."
(let* ((buf (generate-new-buffer "test-not-in-list"))
(orig (copy-sequence cj/undead-buffer-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/undead-buffer-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/undead-buffer-list))
win-was)
(unwind-protect
(progn
(add-to-list 'cj/undead-buffer-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/undead-buffer-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/undead-buffer-list)))
(unwind-protect
(progn
(let ((current-prefix-arg '(4)))
(cj/kill-buffer-or-bury-alive (buffer-name buf)))
(should (member (buffer-name buf) cj/undead-buffer-list)))
(setq cj/undead-buffer-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/undead-buffer-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/undead-buffer-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/undead-buffer-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/undead-buffer-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/undead-buffer-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/undead-buffer-list orig)
(when (buffer-live-p extra) (kill-buffer extra))))
(provide 'test-undead-buffers)
;;; test-undead-buffers.el ends here.
|
