diff options
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compat-tests.el b/compat-tests.el index ec6f95e..19841d8 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -212,7 +212,7 @@ (should-equal 'h (get-text-property 0 'help-echo b)) (should-equal 'h (get-text-property 5 'help-echo b)))) -(ert-deftest compat-button-buttonize () +(ert-deftest compat-obsolete-button-buttonize () (let ((b (with-no-warnings (button-buttonize "button" 'c 'd)))) (should-equal b "button") (should-equal 'c (get-text-property 0 'action b)) @@ -1313,8 +1313,10 @@ (ert-deftest compat-native-comp-available-p () (should (memq (native-comp-available-p) '(nil t)))) -(ert-deftest compat-subr-native-elisp-p () - (should-not (subr-native-elisp-p (symbol-function 'identity)))) +(ert-deftest compat-obsolete-subr-native-elisp-p () + (with-no-warnings + (static-if (< emacs-major-version 30) + (should-not (subr-native-elisp-p (symbol-function 'identity)))))) (ert-deftest compat-closurep () (should (interpreted-function-p (eval '(lambda (x) x) t))) |