From 614695a5ad521be9a159d1116a208db48604467d Mon Sep 17 00:00:00 2001 From: Mattias Engdegård Date: Sat, 17 Dec 2022 19:13:13 +0100 Subject: Suppress memql warning in test * test/lisp/emacs-lisp/cl-lib-tests.el (cl-lib-adjoin-test): Suppress warning about `memql` argument inside expansion of `cl-adjoin`. --- test/lisp/emacs-lisp/cl-lib-tests.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'test/lisp/emacs-lisp/cl-lib-tests.el') diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el b/test/lisp/emacs-lisp/cl-lib-tests.el index c3c04b6305e..759138569e4 100644 --- a/test/lisp/emacs-lisp/cl-lib-tests.el +++ b/test/lisp/emacs-lisp/cl-lib-tests.el @@ -431,7 +431,8 @@ (should (eq nums (cdr (cl-adjoin 3 nums)))) ;; add only when not already there (should (eq nums (cl-adjoin 2 nums))) - (should (equal '(2 1 (2)) (cl-adjoin 2 '(1 (2))))) + (with-suppressed-warnings ((suspicious eq)) + (should (equal '(2 1 (2)) (cl-adjoin 2 '(1 (2)))))) ;; default test function is eql (should (equal '(1.0 1 2) (cl-adjoin 1.0 nums))) ;; own :test function - returns true if match -- cgit v1.2.3