[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5c63786cb9: New test shortdoc-all-groups-work
From: |
Stefan Kangas |
Subject: |
master 5c63786cb9: New test shortdoc-all-groups-work |
Date: |
Mon, 3 Jan 2022 15:40:53 -0500 (EST) |
branch: master
commit 5c63786cb9873ab2b61b5ad511c84df9cd56ce87
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 5c63786cb9: New test shortdoc-all-groups-work,
Stefan Kangas <=