compat-tests.el: Enable sort-on test

1 files changed, 4 insertions, 7 deletions

diff --git a/compat-tests.el b/compat-tests.el
index 71bcc08..57a8493 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) #'<))