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.
parent 5ffdbe0a
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment