diff options
Diffstat (limited to 'test/lisp/emacs-lisp/shortdoc-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/shortdoc-tests.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/test/lisp/emacs-lisp/shortdoc-tests.el b/test/lisp/emacs-lisp/shortdoc-tests.el index 326d43eead4..8515b9fdfb9 100644 --- a/test/lisp/emacs-lisp/shortdoc-tests.el +++ b/test/lisp/emacs-lisp/shortdoc-tests.el @@ -47,10 +47,13 @@ (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))))) + (let ((buf-name (format "*Shortdoc %s*" group)) buf) + (unwind-protect + (progn + (shortdoc-display-group group) + (should (setq buf (get-buffer buf-name)))) + (when buf + (kill-buffer buf)))))) (provide 'shortdoc-tests) |