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:
parent
460f35e96d
commit
5c63786cb9
1 changed files with 8 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue