From 28c90e4c3371501f2965ff5aac0d5108572fa674 Mon Sep 17 00:00:00 2001 From: Damien Cassou Date: Mon, 11 Sep 2023 21:59:45 +0200 Subject: [PATCH 1/3] bytecomp-tests.el: Add new helper function * test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp--without-warning-test): Add helper function. (bytecomp-warn--ignore): Use the helper. --- test/lisp/emacs-lisp/bytecomp-tests.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index cd1bda3ec55..c0adab75269 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -937,14 +937,17 @@ bytecomp--with-warning-test (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 () -- 2.41.0