Update seq.el to version 2.14

[gnu-emacs-elpa] / packages / seq / tests / seq-tests.el

diff --git a/packages/seq/tests/seq-tests.el b/packages/seq/tests/seq-tests.el
index cd9c213640357f8f85c2c169c3354dd7e541a828..cf3da78b1c622d0cdb47edbbf4181aa209200b0a 100644 (file)
--- a/packages/seq/tests/seq-tests.el
+++ b/packages/seq/tests/seq-tests.el
@@ -345,5 +345,10 @@ Evaluate BODY for each created sequence.
                      '(11 22 33 44 55)))
       (should (equal (seq-mapn #'+ seq seq-2 nil) nil)))))
 
+(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