mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

New function seq-map-indexed

Browse source 
* lisp/emacs-lisp/seq.el (seq-map-indexed): New function.
* test/lisp/emacs-lisp/seq-tests.el: Add tests for seq-map-indexed.
This commit is contained in:
Nicolas Petton 2016-02-14 10:25:10 +01:00
parent d9bf0c1c6a
commit 30fe90fa3c
2 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/lisp/emacs-lisp/seq-tests.el
View file

@ -97,6 +97,16 @@ Evaluate BODY for each created sequence.
(with-test-sequences (seq '())
(should (seq-empty-p (seq-take-while #'test-sequences-oddp seq)))))
(ert-deftest test-seq-map-indexed ()
(should (equal (seq-map-indexed (lambda (elt i)
(list elt i))
nil)
nil))
(should (equal (seq-map-indexed (lambda (elt i)
(list elt i))
'(a b c d))
'((a 0) (b 1) (c 2) (d 3)))))
(ert-deftest test-seq-filter ()
(with-test-sequences (seq '(6 7 8 9 10))
(should (equal (seq-filter #'test-sequences-evenp seq) '(6 8 10)))