aboutsummaryrefslogtreecommitdiff
path: root/tests/test-config-utilities--summary-string.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-04-30 08:29:42 -0500
committerCraig Jennings <c@cjennings.net>2026-04-30 09:13:48 -0500
commit0fb3ae438277146a1167cc46ed6c3218a14281ff (patch)
treea2c0ecf210a9b42ed552558b81b16888e642c35d /tests/test-config-utilities--summary-string.el
parent21d5a737f0278baeafd4d72e59cc9505043d91a9 (diff)
downloaddotemacs-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.el54
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