From 2946344a231a915d5143017b70e91a9a7a9b11aa Mon Sep 17 00:00:00 2001 From: Nicolas Petton Date: Tue, 29 Mar 2016 09:19:32 +0200 Subject: New function seq-sort-by in seq.el * lisp/emacs-lisp/seq.el (seq-sort-by): New function. * test/lisp/emacs-lisp/seq-tests.el: New test for seq-sort-by. * doc/lispref/sequences.texi: Add documentation for seq-sort-by. --- test/lisp/emacs-lisp/seq-tests.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'test/lisp/emacs-lisp/seq-tests.el') diff --git a/test/lisp/emacs-lisp/seq-tests.el b/test/lisp/emacs-lisp/seq-tests.el index c9219b51d00..50543de8ada 100644 --- a/test/lisp/emacs-lisp/seq-tests.el +++ b/test/lisp/emacs-lisp/seq-tests.el @@ -347,5 +347,10 @@ Evaluate BODY for each created sequence. (should (= (seq-position seq 'a #'eq) 0)) (should (null (seq-position seq (make-symbol "a") #'eq))))) +(ert-deftest test-seq-sort-by () + (let ((seq ["x" "xx" "xxx"])) + (should (equal (seq-sort-by #'seq-length #'> seq) + ["xxx" "xx" "x"])))) + (provide 'seq-tests) ;;; seq-tests.el ends here -- cgit v1.2.3