[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master cfc0e1cc02 2/2: ; * cl-lib-tests.el: Suppress for the right funct
From: |
Mattias Engdegård |
Subject: |
master cfc0e1cc02 2/2: ; * cl-lib-tests.el: Suppress for the right function. |
Date: |
Tue, 3 Jan 2023 09:23:21 -0500 (EST) |
branch: master
commit cfc0e1cc02976d82285166fa35d69c6af5a430d8
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
; * cl-lib-tests.el: Suppress for the right function.
---
test/lisp/emacs-lisp/cl-lib-tests.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el
b/test/lisp/emacs-lisp/cl-lib-tests.el
index 6668be8ee7..4e1a0fd63a 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)))