diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-01-03 21:40:38 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-01-03 21:40:38 +0100 |
commit | 5c63786cb9873ab2b61b5ad511c84df9cd56ce87 (patch) | |
tree | af84af1b3fa38dfbd022cdfe1f4f9834d63468ab /test/lisp/emacs-lisp/shortdoc-tests.el | |
parent | 460f35e96df1c39ce2ba0f424b36365a2f9e9825 (diff) | |
download | emacs-5c63786cb9873ab2b61b5ad511c84df9cd56ce87.tar.gz |
New test shortdoc-all-groups-work
* test/lisp/emacs-lisp/shortdoc-tests.el
(shortdoc-all-groups-work): New test. See Bug#52969.
Diffstat (limited to 'test/lisp/emacs-lisp/shortdoc-tests.el')
-rw-r--r-- | test/lisp/emacs-lisp/shortdoc-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/shortdoc-tests.el b/test/lisp/emacs-lisp/shortdoc-tests.el index 1c4125e3010..326d43eead4 100644 --- a/test/lisp/emacs-lisp/shortdoc-tests.el +++ b/test/lisp/emacs-lisp/shortdoc-tests.el @@ -44,6 +44,14 @@ (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 |