New test shortdoc-all-groups-work

* test/lisp/emacs-lisp/shortdoc-tests.el
(shortdoc-all-groups-work): New test.  See Bug#52969.
This commit is contained in:
Stefan Kangas 2022-01-03 21:40:38 +01:00
parent 460f35e96d
commit 5c63786cb9

View file

@ -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