diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-01-03 14:26:44 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-01-03 14:30:16 +0100 |
| commit | cfc0e1cc02976d82285166fa35d69c6af5a430d8 (patch) | |
| tree | 83916bfe6eb214e936ec80c3c19c51664ed8a881 /test/lisp/emacs-lisp/cl-lib-tests.el | |
| parent | 0bece4d33f6b1c9de573cc6457ae851bde1958a4 (diff) | |
| download | emacs-cfc0e1cc02976d82285166fa35d69c6af5a430d8.tar.gz | |
; * cl-lib-tests.el: Suppress for the right function.
Diffstat (limited to 'test/lisp/emacs-lisp/cl-lib-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-lib-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el b/test/lisp/emacs-lisp/cl-lib-tests.el index 6668be8ee70..4e1a0fd63a2 100644 --- 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))) |