diff options
| author | Nicolas Petton <nicolas@petton.fr> | 2016-11-16 18:37:26 +0100 |
|---|---|---|
| committer | Nicolas Petton <nicolas@petton.fr> | 2016-11-16 18:37:26 +0100 |
| commit | f63976857b4458bc7712e91d95c04fe2e2ca0106 (patch) | |
| tree | 2715c0b878284976d959440f34243cbd689f52a9 /test/lisp/emacs-lisp | |
| parent | 5ffdbe0a5ebcb3437356f60102b8e622cc608294 (diff) | |
| download | emacs-f63976857b4458bc7712e91d95c04fe2e2ca0106.tar.gz emacs-f63976857b4458bc7712e91d95c04fe2e2ca0106.tar.bz2 emacs-f63976857b4458bc7712e91d95c04fe2e2ca0106.zip | |
Do not use map.el in seq-tests.el
* test/lisp/emacs-lisp/seq-tests.el: Do not use map.el. map.el was
introduced in Emacs 25.1, but seq.el is also available in GNU ELPA for
Emacs 24.5.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/seq-tests.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/test/lisp/emacs-lisp/seq-tests.el b/test/lisp/emacs-lisp/seq-tests.el index 6d17b7c7c97..2e533acce17 100644 --- a/test/lisp/emacs-lisp/seq-tests.el +++ b/test/lisp/emacs-lisp/seq-tests.el @@ -28,7 +28,6 @@ (require 'ert) (require 'seq) -(require 'map) (defmacro with-test-sequences (spec &rest body) "Successively bind VAR to a list, vector, and string built from SEQ. @@ -374,14 +373,13 @@ Evaluate BODY for each created sequence. (ert-deftest test-seq-random-elt-take-all () (let ((seq '(a b c d e)) - (count '())) - (should (= 0 (map-length count))) + (elts '())) + (should (= 0 (length elts))) (dotimes (_ 1000) (let ((random-elt (seq-random-elt seq))) - (map-put count - random-elt - (map-elt count random-elt 0)))) - (should (= 5 (map-length count))))) + (add-to-list 'elts + random-elt))) + (should (= 5 (length elts))))) (ert-deftest test-seq-random-elt-signal-on-empty () (should-error (seq-random-elt nil)) |