Improve seq-group-by to return sequence elements in correct order

* lisp/emacs-lisp/seq.el (seq-group-by): Improves seq-group-by to
return sequence elements in correct order
* tests/automated/seq-tests.el: Update test for seq-group-by
* doc/lispref/sequences.texi (Sequence Functions): Update documentation
examples for seq-group-by

2 files changed, 9 insertions, 3 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index 74fc7cebd56..b080961f681 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -3,6 +3,12 @@
         * automated/package-test.el (package-test-signed):
         More informative failure messages.
 
+2015-02-09  Nicolas Petton <nicolas@petton.fr>
+
+        * automated/seq-tests.el (test-seq-group-by): Update test for
+        seq-group-by to check that sequence elements are returned in the
+        correct order.
+
 2015-02-07  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
         * automated/python-tests.el (python-eldoc--get-symbol-at-point-1)
diff --git a/test/automated/seq-tests.el b/test/automated/seq-tests.el
index ecbc0043210..b92a15cacc5 100644
--- a/test/automated/seq-tests.el
+++ b/test/automated/seq-tests.el
@@ -216,10 +216,10 @@ Evaluate BODY for each created sequence.
   (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 #'test-sequences-oddp '(1 2 3 4))
+                 '((t 1 3) (nil 2 4))))
   (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))))))
+                 '((b (b 3)) (c (c 4)) (a (a 1) (a 2))))))
 
 (provide 'seq-tests)
 ;;; seq-tests.el ends here