From 5c213aaec4bf536e2e7ff6e9656e645de43da2f1 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 3 Jan 2022 19:44:06 +0100 Subject: [PATCH] New test shortdoc-all-groups-work * test/lisp/emacs-lisp/shortdoc-tests.el (shortdoc-all-groups-work): New test. See Bug#52969. --- test/lisp/emacs-lisp/shortdoc-tests.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/test/lisp/emacs-lisp/shortdoc-tests.el b/test/lisp/emacs-lisp/shortdoc-tests.el index 1c4125e301..326d43eead 100644 --- a/test/lisp/emacs-lisp/shortdoc-tests.el +++ b/test/lisp/emacs-lisp/shortdoc-tests.el @@ -44,6 +44,14 @@ shortdoc-examples (should (shortdoc-tests--tree-contains expr fun)))) (setq props (cddr props)))))))) +(ert-deftest shortdoc-all-groups-work () + "Test that all defined shortdoc groups display correctly." + (dolist (group (mapcar (lambda (x) (car x)) shortdoc--groups)) + (unwind-protect + (shortdoc-display-group group) + (when-let ((buf (get-buffer (format "*Shortdoc %s*" group)))) + (kill-buffer buf))))) + (provide 'shortdoc-tests) ;;; shortdoc-tests.el ends here -- 2.30.2