procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Silence some byte-compiler warnings

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2020-09-26 11:34:20 +02:00
parent 2dff3ea073
commit e00936bf9f
4 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/lisp/arc-mode-tests.el
View file

@ -32,7 +32,7 @@
(cons 1024 "------S---") ; Bug#28092
(cons 2048 "---S------"))))
(dolist (x alist)
(should (equal (cdr x) (archive-int-to-mode (car x)))))))
(should (equal (cdr x) (file-modes-number-to-symbolic (car x)))))))
(ert-deftest arc-mode-test-zip-extract-gz ()
(skip-unless (and archive-zip-extract (executable-find (car archive-zip-extract))))

2
test/lisp/custom-tests.el
View file

@ -150,6 +150,8 @@
(defconst custom-test-admin-cus-test
(expand-file-name "admin/cus-test.el" source-directory))
(declare-function cus-test-opts custom-test-admin-cus-test)
(ert-deftest check-for-wrong-custom-types ()
:tags '(:expensive-test)
(skip-unless (file-readable-p custom-test-admin-cus-test))

3
test/lisp/help-fns-tests.el
View file

@ -123,6 +123,9 @@ Return first line of the output of (describe-function-1 FUNC)."
(goto-char (point-min))
(should (looking-at "^font-lock-comment-face is "))))
(defvar foo-test-map)
(defvar help-fns-test--describe-keymap-foo)
;;; Tests for describe-keymap
(ert-deftest help-fns-test-find-keymap-name ()

8
test/src/fns-tests.el
View file

@ -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)