; * cl-lib-tests.el: Suppress for the right function.

diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el b/test/lisp/emacs-lisp/cl-lib-tests.el
index 6668be8ee7047faf80b33f2870c18debd6e78bfa..4e1a0fd63a2d63f87f496b4ee8ad573cb523270a 100644 (file)
--- a/test/lisp/emacs-lisp/cl-lib-tests.el
+++ b/test/lisp/emacs-lisp/cl-lib-tests.el
@@ -431,7 +431,7 @@
     (should (eq nums (cdr (cl-adjoin 3 nums))))
     ;; add only when not already there
     (should (eq nums (cl-adjoin 2 nums)))
-    (with-suppressed-warnings ((suspicious eq))
+    (with-suppressed-warnings ((suspicious memql))
       (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)))