diff options
Diffstat (limited to 'tests/test-config-utilities--info-commands-smoke.el')
| -rw-r--r-- | tests/test-config-utilities--info-commands-smoke.el | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/tests/test-config-utilities--info-commands-smoke.el b/tests/test-config-utilities--info-commands-smoke.el new file mode 100644 index 00000000..f28ec712 --- /dev/null +++ b/tests/test-config-utilities--info-commands-smoke.el @@ -0,0 +1,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 |