blob: f28ec712614526a08819a732764918aaa2cc813e (
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
|
;;; test-config-utilities--info-commands-smoke.el --- Smoke tests for the cj/info-* family + reload-init-file -*- lexical-binding: t; -*-
;;; Commentary:
;; Smoke tests for the simple interactive commands in config-utilities.el:
;; cj/info-emacs-build, cj/info-loaded-packages, cj/info-loaded-features,
;; cj/reload-init-file, and cj/org-alert-list-timers. Each is exercised
;; with `pop-to-buffer' and `load-file' mocked so the test doesn't open
;; real windows or reload init.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'config-utilities)
(defmacro test-config-utilities--with-display-mocks (&rest body)
"Run BODY with `pop-to-buffer' replaced so it doesn't open a window."
(declare (indent 0) (debug t))
`(cl-letf (((symbol-function 'pop-to-buffer)
(lambda (buf &rest _) (set-buffer buf) (current-buffer))))
,@body))
(ert-deftest test-config-utilities-info-emacs-build-creates-summary-buffer ()
"Smoke: `cj/info-emacs-build' creates *Emacs-Build-Summary* with content."
(let ((buf (get-buffer "*Emacs-Build-Summary*")))
(when buf (let ((kill-buffer-query-functions nil)) (kill-buffer buf))))
(test-config-utilities--with-display-mocks
(cj/info-emacs-build)
(let ((buf (get-buffer "*Emacs-Build-Summary*")))
(should (buffer-live-p buf))
(with-current-buffer buf
(should (string-match-p "Version:" (buffer-string))))
(let ((kill-buffer-query-functions nil)) (kill-buffer buf)))))
(ert-deftest test-config-utilities-info-loaded-packages-creates-buffer ()
"Smoke: `cj/info-loaded-packages' creates *loaded-packages* with a count line."
(let ((buf (get-buffer "*loaded-packages*")))
(when buf (let ((kill-buffer-query-functions nil)) (kill-buffer buf))))
(test-config-utilities--with-display-mocks
(cj/info-loaded-packages)
(let ((buf (get-buffer "*loaded-packages*")))
(should (buffer-live-p buf))
(with-current-buffer buf
(should (string-match-p "total packages currently loaded"
(buffer-string))))
(let ((kill-buffer-query-functions nil)) (kill-buffer buf)))))
(ert-deftest test-config-utilities-info-loaded-features-creates-buffer ()
"Smoke: `cj/info-loaded-features' creates *loaded-features* with a count line."
(let ((buf (get-buffer "*loaded-features*")))
(when buf (let ((kill-buffer-query-functions nil)) (kill-buffer buf))))
(test-config-utilities--with-display-mocks
(cj/info-loaded-features)
(let ((buf (get-buffer "*loaded-features*")))
(should (buffer-live-p buf))
(with-current-buffer buf
(should (string-match-p "features currently loaded"
(buffer-string))))
(let ((kill-buffer-query-functions nil)) (kill-buffer buf)))))
(ert-deftest test-config-utilities-reload-init-file-loads-user-init-file ()
"Smoke: `cj/reload-init-file' calls `load-file' on `user-init-file'."
(let (called-with)
(cl-letf (((symbol-function 'load-file)
(lambda (file) (setq called-with file))))
(cj/reload-init-file))
(should (equal called-with user-init-file))))
(ert-deftest test-config-utilities-org-alert-list-timers-no-timers-messages ()
"Boundary: `cj/org-alert-list-timers' with no matching timers emits a
\"none found\" message."
(let (captured)
(cl-letf ((timer-list nil)
((symbol-function 'message)
(lambda (fmt &rest args)
(setq captured (apply #'format fmt args)))))
(cj/org-alert-list-timers))
(should (string-match-p "No org-alert-check timers" captured))))
(provide 'test-config-utilities--info-commands-smoke)
;;; test-config-utilities--info-commands-smoke.el ends here
|
