From 43c7e05a2acadf1ba3ff24fba1706317e347a2ac Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sat, 31 Dec 2022 12:31:13 +0100 Subject: Fix misspelled functions in shortdoc groups * lisp/emacs-lisp/shortdoc.el (file, list): Fix misspelled function names: 'file-writable-p' and 'seq-reduce'. * test/lisp/emacs-lisp/shortdoc-tests.el (subr-x): Require. (shortdoc-all-functions-fboundp): New test. --- test/lisp/emacs-lisp/shortdoc-tests.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'test/lisp/emacs-lisp') diff --git a/test/lisp/emacs-lisp/shortdoc-tests.el b/test/lisp/emacs-lisp/shortdoc-tests.el index 8515b9fdfb9..3938902fa73 100644 --- a/test/lisp/emacs-lisp/shortdoc-tests.el +++ b/test/lisp/emacs-lisp/shortdoc-tests.el @@ -21,6 +21,7 @@ (require 'ert) (require 'shortdoc) +(require 'subr-x) ; `string-pad' in shortdoc group needed at run time (defun shortdoc-tests--tree-contains (tree fun) "Whether TREE contains a call to FUN." @@ -44,6 +45,14 @@ (should (shortdoc-tests--tree-contains expr fun)))) (setq props (cddr props)))))))) +(ert-deftest shortdoc-all-functions-fboundp () + "Check that all functions listed in shortdoc groups are `fboundp'." + (dolist (group shortdoc--groups) + (dolist (item group) + (when (consp item) + (let ((fun (car item))) + (should (fboundp fun))))))) + (ert-deftest shortdoc-all-groups-work () "Test that all defined shortdoc groups display correctly." (dolist (group (mapcar (lambda (x) (car x)) shortdoc--groups)) -- cgit v1.2.3