X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/4fc9bb331e51dac74c5f4fb8ff68550ee9412ae8..4c77f20e144dc409e3c59abdb7105fb0db41ee54:/packages/seq/tests/seq-tests.el?ds=sidebyside

diff --git a/packages/seq/tests/seq-tests.el b/packages/seq/tests/seq-tests.el
index cd9c21364..cf3da78b1 100644
--- 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