From f63976857b4458bc7712e91d95c04fe2e2ca0106 Mon Sep 17 00:00:00 2001 From: Nicolas Petton Date: Wed, 16 Nov 2016 18:37:26 +0100 Subject: [PATCH] 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 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)) -- 2.11.4.GIT