diff options
| author | Craig Jennings <c@cjennings.net> | 2026-04-30 08:29:42 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-04-30 09:13:48 -0500 |
| commit | 0fb3ae438277146a1167cc46ed6c3218a14281ff (patch) | |
| tree | a2c0ecf210a9b42ed552558b81b16888e642c35d /tests/test-config-utilities--summary-string.el | |
| parent | 21d5a737f0278baeafd4d72e59cc9505043d91a9 (diff) | |
| download | dotemacs-0fb3ae438277146a1167cc46ed6c3218a14281ff.tar.gz dotemacs-0fb3ae438277146a1167cc46ed6c3218a14281ff.zip | |
test(config-utilities): cover with-timer, compile-buffer, summary, info commands
Four new test files extending the existing coverage of
cj/emacs-build--format-build-time. The interactive heavyweights
(cj/recompile-emacs-home, cj/delete-emacs-home-compiled-files,
cj/benchmark-this-method, cj/validate-org-agenda-timestamps) are out
of scope for this pass — each needs an internal/wrapper split first
before tests can exercise the logic without UI.
- with-timer macro: 4 tests asserting it returns the FORMS' value,
evaluates the body exactly once, emits both announce and done
messages, and returns the last form when given multiple.
- cj/compile-this-elisp-buffer: 6 tests dispatching across native-async,
native-sync, and byte-compile fallbacks, plus the not-elisp /
no-buffer-file-name error paths and the sync-native error catch.
- cj/emacs-build--summary-string: 5 tests asserting the shape of the
multi-line report (Version, System, Build date, Capabilities section,
yes/no flag rendering) without locking exact wording.
- info-commands smoke: 5 tests exercising cj/info-emacs-build,
cj/info-loaded-packages, cj/info-loaded-features, cj/reload-init-file,
and cj/org-alert-list-timers via boundary-mocked pop-to-buffer and
load-file, asserting buffer creation, content shape, or echo-area
message as appropriate.
20 new tests, all passing. Full suite green.
Diffstat (limited to 'tests/test-config-utilities--summary-string.el')
| -rw-r--r-- | tests/test-config-utilities--summary-string.el | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/tests/test-config-utilities--summary-string.el b/tests/test-config-utilities--summary-string.el new file mode 100644 index 00000000..cd9ae77a --- /dev/null +++ b/tests/test-config-utilities--summary-string.el @@ -0,0 +1,54 @@ +;;; test-config-utilities--summary-string.el --- Tests for cj/emacs-build--summary-string -*- lexical-binding: t; -*- + +;;; Commentary: +;; Tests for `cj/emacs-build--summary-string'. The function returns a +;; multi-line string covering Emacs version, system, build metadata, +;; and capability flags. Tests assert that key sections are present +;; without locking to exact wording. + +;;; Code: + +(require 'ert) + +(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory)) +(require 'config-utilities) + +(ert-deftest test-config-utilities-summary-string-includes-version-line () + "Normal: summary string includes a Version line with `emacs-version'." + (let ((text (cj/emacs-build--summary-string))) + (should (string-match-p (regexp-quote (format "Version: %s" emacs-version)) + text)))) + +(ert-deftest test-config-utilities-summary-string-includes-system-line () + "Normal: summary string includes the System: line." + (should (string-match-p "^System: " (cj/emacs-build--summary-string)))) + +(ert-deftest test-config-utilities-summary-string-includes-build-date-line () + "Normal: summary string includes Build date." + (should (string-match-p "^Build date: " (cj/emacs-build--summary-string)))) + +(ert-deftest test-config-utilities-summary-string-includes-capabilities-section () + "Normal: summary string includes the Capabilities section with the +known capability lines (native compilation, dynamic modules, GnuTLS, +libxml2, ImageMagick, SQLite)." + (let ((text (cj/emacs-build--summary-string))) + (should (string-match-p "Capabilities:" text)) + (dolist (cap '("Native compilation" + "Dynamic modules" + "GnuTLS" + "libxml2" + "ImageMagick" + "SQLite")) + (should (string-match-p (regexp-quote cap) text))))) + +(ert-deftest test-config-utilities-summary-string-renders-yes-or-no-flags () + "Boundary: each capability line ends in either \"yes\" or \"no\"." + (let ((text (cj/emacs-build--summary-string))) + (dolist (cap '("Native compilation" "Dynamic modules" + "GnuTLS" "libxml2" + "ImageMagick" "SQLite")) + (let ((re (concat "^- " (regexp-quote cap) ": \\(yes\\|no\\)"))) + (should (string-match-p re text)))))) + +(provide 'test-config-utilities--summary-string) +;;; test-config-utilities--summary-string.el ends here |
