diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2019-06-01 17:57:51 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-06-01 18:13:00 -0700 |
| commit | b5e41e8ba3d90f5d01a41912681c47a3408c679a (patch) | |
| tree | c6d0c6262a07bd8b94ecead2be12f82f7a070f85 /test/lisp/emacs-lisp | |
| parent | aa9d57eed17ee6a8006c9cdd4f8636100482cd71 (diff) | |
| download | emacs-b5e41e8ba3d90f5d01a41912681c47a3408c679a.tar.gz emacs-b5e41e8ba3d90f5d01a41912681c47a3408c679a.tar.bz2 emacs-b5e41e8ba3d90f5d01a41912681c47a3408c679a.zip | |
Fix `cl-member' and `cl-assoc' for bignums
* lisp/emacs-lisp/cl-seq.el (cl-member, cl-assoc): Work with bignums.
* test/lisp/emacs-lisp/cl-seq-tests.el (cl-seq-bignum-eql): New.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-seq-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/cl-seq-tests.el b/test/lisp/emacs-lisp/cl-seq-tests.el index 86288e99ca5..6515eee9f24 100644 --- a/test/lisp/emacs-lisp/cl-seq-tests.el +++ b/test/lisp/emacs-lisp/cl-seq-tests.el @@ -302,6 +302,14 @@ Body are forms defining the test." (should (equal '(2 8) (last (cl-replace list list2) 2))) (should (equal '(1 1) (last (cl-fill list 1) 2))))) +(ert-deftest cl-seq-bignum-eql () + (let ((x (+ most-positive-fixnum 1)) + (y (+ most-positive-fixnum 1))) + (let ((l (list y))) + (should (eq (cl-member x l) l))) + (let ((a (list (cons y 1) (cons 2 y)))) + (should (eq (cl-assoc x a) (car a))) + (should (eq (cl-rassoc x a) (cadr a)))))) (provide 'cl-seq-tests) ;;; cl-seq-tests.el ends here |