[Emacs-diffs] master f639768: Do not use map.el in seq-tests.el

[Nicolas Petton]

branch: master
commit f63976857b4458bc7712e91d95c04fe2e2ca0106
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>

    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.
---
 test/lisp/emacs-lisp/seq-tests.el |   12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/test/lisp/emacs-lisp/seq-tests.el 
b/test/lisp/emacs-lisp/seq-tests.el
index 6d17b7c..2e533ac 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))