Add seq-partition and seq-group-by

* lisp/emacs-lisp/seq.el: Better docstring for seq.el functions
* test/automated/seq-tests.el: New tests for seq-partition and
  seq-group-by

2 files changed, 19 insertions, 2 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index 9ae9db3f8fb..f9a54b53420 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,6 +1,7 @@
-2015-02-02 Nicolas Petton <nicolas@petton.fr>
+2015-02-06 Nicolas Petton <nicolas@petton.fr>
 
-        * automated/seq-tests.el: New test for seq-mapcat.
+        * automated/seq-tests.el: New tests for seq-mapcat, seq-partition
+        and seq-group-by.
 
 2015-02-05  Artur Malabarba  <bruce.connor.am@gmail.com>
 
diff --git a/test/automated/seq-tests.el b/test/automated/seq-tests.el
index cc89c889675..ecbc0043210 100644
--- a/test/automated/seq-tests.el
+++ b/test/automated/seq-tests.el
@@ -205,5 +205,21 @@ Evaluate BODY for each created sequence.
   (should (equal (seq-mapcat #'seq-reverse '((3 2 1) (6 5 4)) 'vector)
                  '[1 2 3 4 5 6])))
 
+(ert-deftest test-seq-partition ()
+  (should (same-contents-p (seq-partition '(0 1 2 3 4 5 6 7) 3)
+                           '((0 1 2) (3 4 5) (6 7))))
+  (should (same-contents-p (seq-partition '[0 1 2 3 4 5 6 7] 3)
+                           '([0 1 2] [3 4 5] [6 7])))
+  (should (same-contents-p (seq-partition "Hello world" 2)
+                           '("He" "ll" "o " "wo" "rl" "d")))
+  (should (equal (seq-partition '() 2) '()))
+  (should (equal (seq-partition '(1 2 3) -1) '())))
+
+(ert-deftest test-seq-group-by ()
+  (should (equal (seq-group-by #'test-sequences-oddp [1 2 3 4])
+                 '((t 3 1) (nil 4 2))))
+  (should (equal (seq-group-by #'car '((a 1) (b 3) (c 4) (a 2)))
+                 '((a (a 2) (a 1)) (b (b 3)) (c (c 4))))))
+
 (provide 'seq-tests)
 ;;; seq-tests.el ends here