[elpa] externals/compat 89d77c8fe4 53/77: compat-tests.el: Enable sort-on test

[ELPA Syncer]

branch: externals/compat
commit 89d77c8fe4238d3c0c36432548e11110de427cca
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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) #'<))