diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2020-09-26 11:34:20 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2020-09-26 12:03:07 +0200 |
| commit | e00936bf9f10cf44e1df71a7a11afd770e8a122a (patch) | |
| tree | 04735ea688f4b36a8ec814c9949287ad6ffde98a /test/src/fns-tests.el | |
| parent | 2dff3ea073c4118d79308178dcb3bd7bb1bb8237 (diff) | |
| download | emacs-e00936bf9f10cf44e1df71a7a11afd770e8a122a.tar.gz | |
Silence some byte-compiler warnings
* test/lisp/arc-mode-tests.el (arc-mode-test-archive-int-to-mode):
* test/lisp/custom-tests.el (cus-test-opts):
* test/lisp/help-fns-tests.el (foo-test-map)
(help-fns-test--describe-keymap-foo):
* test/src/fns-tests.el (w32-collate-ignore-punctuation)
(fns-tests-func-arity): Silence byte-compiler warnings.
Diffstat (limited to 'test/src/fns-tests.el')
| -rw-r--r-- | test/src/fns-tests.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index 323743d8420..f2e1a268b08 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el @@ -166,6 +166,8 @@ (should (equal (should-error (sort "cba" #'<) :type 'wrong-type-argument) '(wrong-type-argument list-or-vector-p "cba")))) +(defvar w32-collate-ignore-punctuation) + (ert-deftest fns-tests-collate-sort () (skip-unless (fns-tests--collate-enabled-p)) @@ -228,9 +230,9 @@ (should (equal (func-arity 'format) '(1 . many))) (require 'info) (should (equal (func-arity 'Info-goto-node) '(1 . 3))) - (should (equal (func-arity (lambda (&rest x))) '(0 . many))) - (should (equal (func-arity (eval '(lambda (x &optional y)) nil)) '(1 . 2))) - (should (equal (func-arity (eval '(lambda (x &optional y)) t)) '(1 . 2))) + (should (equal (func-arity (lambda (&rest _x))) '(0 . many))) + (should (equal (func-arity (eval '(lambda (_x &optional y)) nil)) '(1 . 2))) + (should (equal (func-arity (eval '(lambda (_x &optional y)) t)) '(1 . 2))) (should (equal (func-arity 'let) '(1 . unevalled)))) (defun fns-tests--string-repeat (s o) |