diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-12-17 19:13:13 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-12-18 15:01:06 +0100 |
| commit | 614695a5ad521be9a159d1116a208db48604467d (patch) | |
| tree | bc9ae373e92a8260096c7c0a140b286597343090 /test/lisp/emacs-lisp | |
| parent | 730a39e8810e91ad3bb70af191229b78c3858983 (diff) | |
| download | emacs-614695a5ad521be9a159d1116a208db48604467d.tar.gz emacs-614695a5ad521be9a159d1116a208db48604467d.tar.bz2 emacs-614695a5ad521be9a159d1116a208db48604467d.zip | |
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`.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-lib-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |