branch: externals/compat
commit 89d77c8fe4238d3c0c36432548e11110de427cca
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
compat-tests.el: Enable sort-on test
---
compat-tests.el | 11 ++++-------
1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index 71bcc08d79..57a849327d 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1754,13 +1754,10 @@
(should-equal '(1 2 3 4) (flatten-tree '(((1 nil)) 2 (((3 nil nil) 4))))))
(ert-deftest compat-sort-on ()
- ;; TODO enable if CI emacs 30 supports sort-on
- (static-if (< emacs-major-version 30)
- (progn
- (should-equal '(3 2 1) (sort-on '(2 1 3) #'> #'identity))
- (should-equal '(1 2 3) (sort-on [2 1 3] #'< #'identity))
- (should-equal '((1 z) (2 y) (3 x)) (sort-on (list '(2 y) '(1 z) '(3 x))
#'< #'car))
- (should-equal '((x 3) (y 2) (z 1)) (sort-on (list '(y 2) '(z 1) '(x 3))
#'> #'cadr)))))
+ (should-equal '(3 2 1) (sort-on '(2 1 3) #'> #'identity))
+ (should-equal '(1 2 3) (sort-on [2 1 3] #'< #'identity))
+ (should-equal '((1 z) (2 y) (3 x)) (sort-on (list '(2 y) '(1 z) '(3 x)) #'<
#'car))
+ (should-equal '((x 3) (y 2) (z 1)) (sort-on (list '(y 2) '(z 1) '(x 3)) #'>
#'cadr)))
(ert-deftest compat-sort ()
(should-equal (list 1 2 3) (sort (list 1 2 3) #'<))
