emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 2d6022a: Do not use map.el in seq-tests.el


From: Nicolas Petton
Subject: [elpa] master 2d6022a: Do not use map.el in seq-tests.el
Date: Wed, 16 Nov 2016 17:39:31 +0000 (UTC)

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

    Do not use map.el in seq-tests.el
    
    * packages/seq/tests/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.
---
 packages/seq/tests/seq-tests.el |   11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/packages/seq/tests/seq-tests.el b/packages/seq/tests/seq-tests.el
index 53930fa..5d729b1 100644
--- a/packages/seq/tests/seq-tests.el
+++ b/packages/seq/tests/seq-tests.el
@@ -352,14 +352,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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]