diff options
| author | Stefan Kangas | 2022-01-03 21:40:38 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2022-01-03 21:40:38 +0100 |
| commit | 5c63786cb9873ab2b61b5ad511c84df9cd56ce87 (patch) | |
| tree | af84af1b3fa38dfbd022cdfe1f4f9834d63468ab | |
| parent | 460f35e96df1c39ce2ba0f424b36365a2f9e9825 (diff) | |
| download | emacs-5c63786cb9873ab2b61b5ad511c84df9cd56ce87.tar.gz emacs-5c63786cb9873ab2b61b5ad511c84df9cd56ce87.zip | |
New test shortdoc-all-groups-work
* test/lisp/emacs-lisp/shortdoc-tests.el
(shortdoc-all-groups-work): New test. See Bug#52969.
| -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 @@ | |||
| 44 | (should (shortdoc-tests--tree-contains expr fun)))) | 44 | (should (shortdoc-tests--tree-contains expr fun)))) |
| 45 | (setq props (cddr props)))))))) | 45 | (setq props (cddr props)))))))) |
| 46 | 46 | ||
| 47 | (ert-deftest shortdoc-all-groups-work () | ||
| 48 | "Test that all defined shortdoc groups display correctly." | ||
| 49 | (dolist (group (mapcar (lambda (x) (car x)) shortdoc--groups)) | ||
| 50 | (unwind-protect | ||
| 51 | (shortdoc-display-group group) | ||
| 52 | (when-let ((buf (get-buffer (format "*Shortdoc %s*" group)))) | ||
| 53 | (kill-buffer buf))))) | ||
| 54 | |||
| 47 | (provide 'shortdoc-tests) | 55 | (provide 'shortdoc-tests) |
| 48 | 56 | ||
| 49 | ;;; shortdoc-tests.el ends here | 57 | ;;; shortdoc-tests.el ends here |