diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-03-04 21:26:16 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-03-04 21:27:11 +0100 |
| commit | 35d032b5e0f6fac577ee09253097398c58e84524 (patch) | |
| tree | 2d4eb3a844ab6dd3367ee356d70fd4fc78f9d5c4 | |
| parent | b8f21000f623bf6bfad9470c80e2954e1cfb61b8 (diff) | |
Emacs 30: Do not test cyclic function aliases
| -rw-r--r-- | compat-tests.el | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/compat-tests.el b/compat-tests.el index bdf9c04..73de95b 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) |