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

Quieten compilation of some test files

Browse source 
* test/lisp/dired-tests.el (dired-test-bug25609): Mark unused args.
* test/src/data-tests.el (binding-test-set-constant-t)
(binding-test-set-constant-nil, binding-test-set-constant-keyword)
(binding-test-set-constant-nil): Silence compiler.
* test/src/regex-tests.el (regex-tests-BOOST): Escape char literal.
This commit is contained in:
Glenn Morris 2017-05-31 21:17:28 -04:00
parent 6aacd4fb09
commit afcbec6114
3 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/dired-tests.el
View file

@ -63,11 +63,11 @@
(dired-recursive-copies 'always)) ; Don't prompt me.
(advice-add 'dired-query ; Don't ask confirmation to overwrite a file.
:override
(lambda (sym prompt &rest args) (setq dired-query t))
(lambda (_sym _prompt &rest _args) (setq dired-query t))
'((name . "advice-dired-query")))
(advice-add 'completing-read ; Just return init.
:override
(lambda (prompt coll &optional pred match init hist def inherit keymap)
(lambda (_prompt _coll &optional _pred _match init _hist _def _inherit _keymap)
init)
'((name . "advice-completing-read")))
(dired to)

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

@ -338,19 +338,19 @@ comparing the subr with a much slower lisp implementation."
(ert-deftest binding-test-set-constant-t ()
"Test setting the constant t"
(should-error (setq t 'bob) :type 'setting-constant))
(with-no-warnings (should-error (setq t 'bob) :type 'setting-constant)))
(ert-deftest binding-test-set-constant-nil ()
"Test setting the constant nil"
(should-error (setq nil 'bob) :type 'setting-constant))
(with-no-warnings (should-error (setq nil 'bob) :type 'setting-constant)))
(ert-deftest binding-test-set-constant-keyword ()
"Test setting a keyword constant"
(should-error (setq :keyword 'bob) :type 'setting-constant))
(with-no-warnings (should-error (setq :keyword 'bob) :type 'setting-constant)))
(ert-deftest binding-test-set-constant-nil ()
"Test setting a keyword to itself"
(should (setq :keyword :keyword)))
(with-no-warnings (should (setq :keyword :keyword))))
;; More tests to write -
;; kill-local-variable

2
test/src/regex-tests.el
View file

@ -424,7 +424,7 @@ differences in behavior.")
(let (failures
basic icase notbol noteol)
(regex-tests-generic-line
?; "BOOST.tests" regex-tests-BOOST-whitelist
?\; "BOOST.tests" regex-tests-BOOST-whitelist
(if (save-excursion (re-search-forward "^-" nil t))
(setq basic (save-excursion (re-search-forward "REG_BASIC" nil t))
icase (save-excursion (re-search-forward "REG_ICASE" nil t))