From 793b7f7a3fdf41888f8bd7a0a4874e8d6147ced6 Mon Sep 17 00:00:00 2001
From: Daniel Mendler <mail@daniel-mendler.de>
Date: Sun, 4 Jan 2026 16:06:17 +0100
Subject: compat-tests: Remove unused tests

---
 compat-tests.el | 66 ---------------------------------------------------------
 1 file changed, 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*
-- 
cgit v1.0