procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Mattias Engdegård 2023-01-03 14:26:44 +01:00
parent 0bece4d33f
commit cfc0e1cc02
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test/lisp/emacs-lisp/cl-lib-tests.el
View file

@ -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)))