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

bytecomp-tests.el: Add new helper function

Browse source 
* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp--without-warning-test): Add helper function.
(bytecomp-warn--ignore): Use the helper.
This commit is contained in:
Damien Cassou 2023-09-11 21:59:45 +02:00 • committed by Stefan Kangas
parent 2d703432a8
commit d436c559a4
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test/lisp/emacs-lisp/bytecomp-tests.el
View file

@ -937,14 +937,17 @@ byte-compiled. Run with dynamic binding."
(should (re-search-forward
(string-replace " " "[ \n]+" re-warning)))))))
(defun bytecomp--without-warning-test (form)
(bytecomp--with-warning-test "\\`\\'" form))
(ert-deftest bytecomp-warn--ignore ()
(bytecomp--with-warning-test "unused"
'(lambda (y) 6))
(bytecomp--with-warning-test "\\`\\'" ;No warning!
(bytecomp--without-warning-test
'(lambda (y) (ignore y) 6))
(bytecomp--with-warning-test "assq"
'(lambda (x y) (progn (assq x y) 5)))
(bytecomp--with-warning-test "\\`\\'" ;No warning!
(bytecomp--without-warning-test
'(lambda (x y) (progn (ignore (assq x y)) 5))))
(ert-deftest bytecomp-warn-wrong-args ()