[elpa] externals/compat 35d032b5e0 3/5: Emacs 30: Do not test cyclic function aliases

[ELPA Syncer]

branch: externals/compat
commit 35d032b5e0f6fac577ee09253097398c58e84524
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>

    Emacs 30: Do not test cyclic function aliases
---
 compat-tests.el | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index bdf9c04b6f..73de95b766 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -882,13 +882,19 @@
   (defalias 'compat-tests--alias-b 'compat-tests--alias-c)
   (should-equal (function-alias-p 'compat-tests--alias-a)
                 '(compat-tests--alias-b compat-tests--alias-c))
-  (defalias 'compat-tests--alias-d 'compat-tests--alias-e)
-  (defalias 'compat-tests--alias-e 'compat-tests--alias-d)
-  (should-error (function-alias-p 'compat-tests--alias-d))
-  (should-equal (function-alias-p 'compat-tests--alias-d 'noerror)
-                '(compat-tests--alias-e))
-  (should-equal (function-alias-p 'compat-tests--alias-d t)
-                '(compat-tests--alias-e)))
+  ;; Emacs 30 disallows cyclic function aliases
+  (if (>= emacs-major-version 30)
+      (should-error
+       (progn
+         (defalias 'compat-tests--cyclic-alias-a 'compat-tests--cyclic-alias-b)
+         (defalias 'compat-tests--cyclic-alias-b 
'compat-tests--cyclic-alias-a)))
+    (defalias 'compat-tests--cyclic-alias-a 'compat-tests--cyclic-alias-b)
+    (defalias 'compat-tests--cyclic-alias-b 'compat-tests--cyclic-alias-a)
+    (should-error (function-alias-p 'compat-tests--cyclic-alias-a))
+    (should-equal (function-alias-p 'compat-tests--cyclic-alias-a 'noerror)
+                  '(compat-tests--cyclic-alias-b))
+    (should-equal (function-alias-p 'compat-tests--cyclic-alias-a t)
+                  '(compat-tests--cyclic-alias-b))))
 
 (ert-deftest ignore-error ()
   (should-equal (ignore-error (end-of-file)