diff options
| -rw-r--r-- | test/lisp/emacs-lisp/checkdoc-tests.el | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/test/lisp/emacs-lisp/checkdoc-tests.el b/test/lisp/emacs-lisp/checkdoc-tests.el index de75c42c520..3fbf25d7086 100644 --- a/test/lisp/emacs-lisp/checkdoc-tests.el +++ b/test/lisp/emacs-lisp/checkdoc-tests.el | |||
| @@ -111,13 +111,6 @@ | |||
| 111 | (insert "(cl-defun foo (&key a &allow-other-keys) \"Return :A.\")") | 111 | (insert "(cl-defun foo (&key a &allow-other-keys) \"Return :A.\")") |
| 112 | (checkdoc-defun))) | 112 | (checkdoc-defun))) |
| 113 | 113 | ||
| 114 | (ert-deftest checkdoc-cl-defun-with-aux-ok () | ||
| 115 | "Checkdoc should be happy with a cl-defun using &aux." | ||
| 116 | (with-temp-buffer | ||
| 117 | (emacs-lisp-mode) | ||
| 118 | (insert "(cl-defun foo (a b &aux (c (+ a b))) \"Return A and B.\")") | ||
| 119 | (checkdoc-defun))) | ||
| 120 | |||
| 121 | (ert-deftest checkdoc-cl-defun-with-default-optional-value-ok () | 114 | (ert-deftest checkdoc-cl-defun-with-default-optional-value-ok () |
| 122 | "Checkdoc should be happy with a cl-defun using default values for optional args." | 115 | "Checkdoc should be happy with a cl-defun using default values for optional args." |
| 123 | (with-temp-buffer | 116 | (with-temp-buffer |
| @@ -134,15 +127,6 @@ | |||
| 134 | (insert "(cl-defun foo ((a b &optional c) d) \"Return A+B+C+D.\")") | 127 | (insert "(cl-defun foo ((a b &optional c) d) \"Return A+B+C+D.\")") |
| 135 | (checkdoc-defun))) | 128 | (checkdoc-defun))) |
| 136 | 129 | ||
| 137 | (ert-deftest checkdoc-cl-defmethod-with-context-ok () | ||
| 138 | "Checkdoc should ignore context specializers in a cl-defmethod." | ||
| 139 | (with-temp-buffer | ||
| 140 | (emacs-lisp-mode) | ||
| 141 | ;; A context specializer is used to select the correct method but | ||
| 142 | ;; doesn't have to appear in the docstring: | ||
| 143 | (insert "(cl-defmethod foo (a &context (global-var (eql foo))) \"Return A.\")") | ||
| 144 | (checkdoc-defun))) | ||
| 145 | |||
| 146 | (ert-deftest checkdoc-tests--next-docstring () | 130 | (ert-deftest checkdoc-tests--next-docstring () |
| 147 | "Checks that the one-argument form of `defvar' works. | 131 | "Checks that the one-argument form of `defvar' works. |
| 148 | See the comments in Bug#24998." | 132 | See the comments in Bug#24998." |