diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2025-01-05 22:47:22 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2025-01-05 22:48:34 +0100 |
| commit | a1a1c9c395a494ebba26c9d46549fe9daf54e032 (patch) | |
| tree | 02def67f887dd27c44dd31636a692d922096b18d /compat-tests.el | |
| parent | e87b984bf763aa6c574dde58b3cb4458b3b7db17 (diff) | |
compat-tests: Reenable disabled tests
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 34 |
1 files changed, 15 insertions, 19 deletions
diff --git a/compat-tests.el b/compat-tests.el index cf0a592..223d0dd 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -3236,27 +3236,23 @@ (should (local-variable-if-set-p 'untrusted-content))) (ert-deftest compat-trusted-content () - (static-if (< emacs-major-version 30) ;; TODO reenable on Emacs 30 - (progn - (should (boundp 'trusted-content)) - (should (risky-local-variable-p 'trusted-content))))) + (should (boundp 'trusted-content)) + (should (risky-local-variable-p 'trusted-content))) (ert-deftest compat-trusted-content-p () - (static-if (< emacs-major-version 30) ;; TODO reenable on Emacs 30 - (progn - (should-not (trusted-content-p)) - (let ((untrusted-content t) - (buffer-file-truename user-init-file)) - (should-not (trusted-content-p))) - (let ((buffer-file-truename (expand-file-name "compat-tests.el"))) - (should-not (trusted-content-p))) - (let ((buffer-file-truename (expand-file-name "compat-tests.el")) - (trusted-content '("compat-tests.el"))) - (should (trusted-content-p))) - (let ((untrusted-content t) - (buffer-file-truename (expand-file-name "compat-tests.el")) - (trusted-content '("compat-tests.el"))) - (should-not (trusted-content-p)))))) + (should-not (trusted-content-p)) + (let ((untrusted-content t) + (buffer-file-truename user-init-file)) + (should-not (trusted-content-p))) + (let ((buffer-file-truename (expand-file-name "compat-tests.el"))) + (should-not (trusted-content-p))) + (let ((buffer-file-truename (expand-file-name "compat-tests.el")) + (trusted-content '("compat-tests.el"))) + (should (trusted-content-p))) + (let ((untrusted-content t) + (buffer-file-truename (expand-file-name "compat-tests.el")) + (trusted-content '("compat-tests.el"))) + (should-not (trusted-content-p)))) (provide 'compat-tests) ;;; compat-tests.el ends here |