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.
This commit is contained in:
parent
5ffdbe0a5e
commit
f63976857b
1 changed files with 5 additions and 7 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue