diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2026-01-04 16:06:17 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2026-01-04 16:06:17 +0100 |
| commit | 793b7f7a3fdf41888f8bd7a0a4874e8d6147ced6 (patch) | |
| tree | 30da0411cdbd788f90c208b8624cb2fe636ea785 | |
| parent | 850701ce0a795c4a674dfe761e9ceb8b00ef50fc (diff) | |
compat-tests: Remove unused tests
| -rw-r--r-- | compat-tests.el | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/compat-tests.el b/compat-tests.el index 0b0ac69..2df3f96 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -2280,72 +2280,6 @@ (should-equal "else" (if-let* (((= 5 6))) "then" "else"))) -(ert-deftest compat-when-let () - (static-if (< emacs-major-version 31) ;; deprecated on Emacs 31 - (progn - ;; FIXME Broken on Emacs 25 - (static-if (= emacs-major-version 25) - (should-equal "second" - (when-let - ((x 3) - (y 2) - (z (+ x y)) - ;; ((= z 5)) ;; FIXME Broken on Emacs 25 - (true t)) - "first" "second")) - (should-equal "second" - (when-let - ((x 3) - (y 2) - (z (+ x y)) - ((= z 5)) - (true t)) - "first" "second")) - (should-equal "then" (when-let (((= 5 5))) "then")) - (should-not (when-let (((= 5 6))) t))) - (should-equal "last" - (when-let (e (memq 0 '(1 2 3 0 5 6))) - "first" "last")) - (should-equal "last" (when-let ((e (memq 0 '(1 2 3 0 5 6)))) - "first" "last")) - (should-not (when-let ((e (memq 0 '(1 2 3 5 6))) - (d (memq 0 '(1 2 3 0 5 6)))) - "first" "last"))))) - -(ert-deftest compat-if-let () - (static-if (< emacs-major-version 31) ;; deprecated on Emacs 31 - (progn - ;; FIXME Broken on Emacs 25 - (static-if (= emacs-major-version 25) - (should-equal "then" - (if-let - ((x 3) - (y 2) - (z (+ x y)) - ;; ((= z 5)) ;; FIXME Broken on Emacs 25 - (true t)) - "then" "else")) - (should-equal "then" - (if-let - ((x 3) - (y 2) - (z (+ x y)) - ((= z 5)) - (true t)) - "then" "else")) - (should-equal "else" (if-let (((= 5 6))) "then" "else")) - (should-not (if-let (((= 5 6))) t nil))) - (should (if-let (e (memq 0 '(1 2 3 0 5 6))) - e)) - (should (if-let ((e (memq 0 '(1 2 3 0 5 6)))) - e)) - (should-not (if-let ((e (memq 0 '(1 2 3 5 6))) - (d (memq 0 '(1 2 3 0 5 6)))) - t)) - (should-not (if-let ((d (memq 0 '(1 2 3 0 5 6))) - (e (memq 0 '(1 2 3 5 6)))) - t))))) - (ert-deftest compat-and-let* () (should ;trivial body (and-let* |