blob: 107256c96b704e99716da69a3bd3175633c0a11a (
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
|
;;; test-undead-buffers-undead-buffer-p.el --- Tests for cj/undead-buffer-p -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for the cj/undead-buffer-p function from undead-buffers.el
;;; Code:
(require 'ert)
(require 'undead-buffers)
(require 'testutil-general)
;;; Setup and Teardown
(defun test-undead-buffer-p-setup ()
"Setup for undead-buffer-p tests."
(cj/create-test-base-dir))
(defun test-undead-buffer-p-teardown ()
"Teardown for undead-buffer-p tests."
(cj/delete-test-base-dir))
;;; Normal Cases
(ert-deftest test-undead-buffer-p-modified-file-buffer-should-return-true ()
"A modified file-backed buffer not in undead list should return t."
(test-undead-buffer-p-setup)
(unwind-protect
(let* ((file (cj/create-temp-test-file-with-content "test content"))
(buf (find-file-noselect file)))
(unwind-protect
(progn
(with-current-buffer buf
(insert "more content")
(should (cj/undead-buffer-p))))
(when (buffer-live-p buf)
(set-buffer-modified-p nil)
(kill-buffer buf))))
(test-undead-buffer-p-teardown)))
(ert-deftest test-undead-buffer-p-undead-modified-file-buffer-should-return-nil ()
"A modified file-backed undead buffer should return nil."
(test-undead-buffer-p-setup)
(unwind-protect
(let* ((orig (copy-sequence cj/undead-buffer-list))
(file (cj/create-temp-test-file-with-content "test content"))
(buf (find-file-noselect file)))
(unwind-protect
(progn
(add-to-list 'cj/undead-buffer-list (buffer-name buf))
(with-current-buffer buf
(insert "more content")
(should-not (cj/undead-buffer-p))))
(setq cj/undead-buffer-list orig)
(when (buffer-live-p buf)
(set-buffer-modified-p nil)
(kill-buffer buf))))
(test-undead-buffer-p-teardown)))
(ert-deftest test-undead-buffer-p-scratch-buffer-should-return-nil ()
"The *scratch* buffer should return nil (it's undead)."
(test-undead-buffer-p-setup)
(unwind-protect
(with-current-buffer "*scratch*"
(should-not (cj/undead-buffer-p)))
(test-undead-buffer-p-teardown)))
;;; Boundary Cases
(ert-deftest test-undead-buffer-p-unmodified-file-buffer-should-return-nil ()
"An unmodified file buffer should return nil."
(test-undead-buffer-p-setup)
(unwind-protect
(let* ((file (cj/create-temp-test-file-with-content "test content"))
(buf (find-file-noselect file)))
(unwind-protect
(with-current-buffer buf
(should-not (cj/undead-buffer-p)))
(when (buffer-live-p buf)
(kill-buffer buf))))
(test-undead-buffer-p-teardown)))
(ert-deftest test-undead-buffer-p-modified-buffer-without-file-should-return-nil ()
"A modified buffer without a backing file should return nil."
(test-undead-buffer-p-setup)
(unwind-protect
(let ((buf (generate-new-buffer "*test-no-file*")))
(unwind-protect
(with-current-buffer buf
(insert "content")
(set-buffer-modified-p t)
(should-not (cj/undead-buffer-p)))
(when (buffer-live-p buf)
(set-buffer-modified-p nil)
(kill-buffer buf))))
(test-undead-buffer-p-teardown)))
(ert-deftest test-undead-buffer-p-temporary-buffer-should-return-nil ()
"A temporary buffer should return nil."
(test-undead-buffer-p-setup)
(unwind-protect
(with-temp-buffer
(should-not (cj/undead-buffer-p)))
(test-undead-buffer-p-teardown)))
(provide 'test-undead-buffers-undead-buffer-p)
;;; test-undead-buffers-undead-buffer-p.el ends here
|
