diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2020-06-21 12:50:34 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2020-06-21 12:50:34 +0100 |
| commit | 4cc6854cd4b0857e223ed6bc1b1b1a051dd83480 (patch) | |
| tree | 4809d5c25c6be4ebfb78099b30d26f564bf1e7b5 /test/lisp/imenu-tests.el | |
| parent | a1b487eac0ec10059eb2b8c5e7efc9eec1342148 (diff) | |
| download | emacs-4cc6854cd4b0857e223ed6bc1b1b1a051dd83480.tar.gz emacs-4cc6854cd4b0857e223ed6bc1b1b1a051dd83480.tar.bz2 emacs-4cc6854cd4b0857e223ed6bc1b1b1a051dd83480.zip | |
Silence some warnings in tests
* test/lisp/emacs-lisp/package-tests.el
(package-test-suffix-matches): Evaluate lambda.
(package-test-list-filter-marked):
* test/lisp/vc/vc-tests.el
(vc-test--run-maybe-unsupported-function):
* test/src/undo-tests.el (undo-test-skip-invalidated-markers):
Silence "unused local variable" warnings.
* test/lisp/imenu-tests.el (imenu-simple-scan-deftest): Fix
docstring. Don't shadow global major-mode.
Diffstat (limited to 'test/lisp/imenu-tests.el')
| -rw-r--r-- | test/lisp/imenu-tests.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/test/lisp/imenu-tests.el b/test/lisp/imenu-tests.el index 5dbeb882e01..e5cdb9e65d1 100644 --- a/test/lisp/imenu-tests.el +++ b/test/lisp/imenu-tests.el @@ -50,24 +50,23 @@ (setq input (cdr input))))) result)) -(defmacro imenu-simple-scan-deftest (name doc major-mode content expected-items) +(defmacro imenu-simple-scan-deftest (name doc mode content expected-items) "Generate an ert test for mode-own imenu expression. Run `imenu-create-index-function' at the buffer which content is -CONTENT with MAJOR-MODE. A generated test runs `imenu-create-index-function' -at the buffer which content is CONTENT with MAJOR-MODE. Then it compares a list -of strings which are picked up from the result with EXPECTED-ITEMS." +CONTENT with major MODE. A generated test runs `imenu-create-index-function' +at the buffer which content is CONTENT with major MODE. Then it compares a +list of strings which are picked up from the result with EXPECTED-ITEMS." (let ((xname (intern (concat "imenu-simple-scan-deftest-" (symbol-name name))))) `(ert-deftest ,xname () - ,doc + ,doc (with-temp-buffer (insert ,content) - (funcall ',major-mode) + (funcall #',mode) (let ((result-items (sort (imenu-simple-scan-deftest-gather-strings-from-list (funcall imenu-create-index-function)) #'string-lessp)) (expected-items (sort (copy-sequence ,expected-items) #'string-lessp))) - (should (equal result-items expected-items)) - ))))) + (should (equal result-items expected-items))))))) (imenu-simple-scan-deftest sh "Test imenu expression for sh-mode." sh-mode "a() { |