Add seq-mapcat

* lisp/emacs-lisp/seq.el (seq-mapcat): New function
* test/automated/seq-tests.el: Add unit tests for seq-mapcat

2 files changed, 13 insertions, 1 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index 23c48708b6c..9ae9db3f8fb 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,7 @@
+2015-02-02 Nicolas Petton <nicolas@petton.fr>
+
+        * automated/seq-tests.el: New test for seq-mapcat.
+
 2015-02-05  Artur Malabarba  <bruce.connor.am@gmail.com>
 
         * automated/package-test.el (package-test-get-deps): Fix typo.
diff --git a/test/automated/seq-tests.el b/test/automated/seq-tests.el
index 23989799306..cc89c889675 100644
--- a/test/automated/seq-tests.el
+++ b/test/automated/seq-tests.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
 
-;; Author: Nicolas Petton <petton.nicolas@gmail.com>
+;; Author: Nicolas Petton <nicolas@petton.fr>
 ;; Maintainer: emacs-devel@gnu.org
 
 ;; This file is part of GNU Emacs.
@@ -197,5 +197,13 @@ Evaluate BODY for each created sequence.
     (should (equal (seq-concatenate 'vector nil '(8 10)) [8 10]))
     (should (equal (seq-concatenate 'vector seq nil) [2 4 6]))))
 
+(ert-deftest test-seq-mapcat ()
+  (should (equal (seq-mapcat #'seq-reverse '((3 2 1) (6 5 4)))
+                 '(1 2 3 4 5 6)))
+  (should (equal (seq-mapcat #'seq-reverse '[(3 2 1) (6 5 4)])
+                 '(1 2 3 4 5 6)))
+  (should (equal (seq-mapcat #'seq-reverse '((3 2 1) (6 5 4)) 'vector)
+                 '[1 2 3 4 5 6])))
+
 (provide 'seq-tests)
 ;;; seq-tests.el ends here