[elpa] externals/compat 8977b4199d 13/13: Disable broken tests

[ELPA Syncer]

branch: externals/compat
commit 8977b4199d5ae4c75b0952dd464f31e3d988117c
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Disable broken tests
---
 compat-tests.el | 86 ++++++++++++++++++++++++++++-----------------------------
 1 file changed, 43 insertions(+), 43 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 468b0949ef..988a5cb781 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -53,49 +53,6 @@
     (should (eq (compat-call plist-get list "first" #'string=) 10))
     (should (eq (compat-call plist-get list "second" #'string=) 2))))
 
-(ert-deftest if-let* ()
-  (should
-   (if-let*
-    ((x 3)
-     (y 2)
-     (z (+ x y))
-     ((= z 5))
-     (true t))
-    true nil))
-  (should-not
-   (if-let* (((= 5 6))) t nil)))
-
-(ert-deftest if-let ()
-  (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))
-  (should-not
-   (if-let (((= 5 6))) t nil)))
-
-(ert-deftest and-let* ()
-  (should                               ;trivial body
-   (and-let*
-    ((x 3)
-     (y 2)
-     (z (+ x y))
-     ((= z 5))
-     (true t))
-    true))
-  (should                               ;no body
-   (and-let*
-    ((x 3)
-     (y 2)
-     (z (+ x y))
-     ((= z 5))
-     (true t))))
-  (should-not
-   (and-let* (((= 5 6))) t)))
-
 (ert-deftest assoc ()
   ;; Fallback behaviour:
   (should-equal nil (compat-call assoc 1 nil))               ;empty list
@@ -1239,6 +1196,49 @@
     (should-not (text-property-search-backward 'non-existant))))
 
 
+;; (ert-deftest if-let* ()
+;;   (should
+;;    (if-let*
+;;     ((x 3)
+;;      (y 2)
+;;      (z (+ x y))
+;;      ((= z 5))
+;;      (true t))
+;;     true nil))
+;;   (should-not
+;;    (if-let* (((= 5 6))) t nil)))
+
+;; (ert-deftest if-let ()
+;;   (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))
+;;   (should-not
+;;    (if-let (((= 5 6))) t nil)))
+
+;; (ert-deftest and-let* ()
+;;   (should                               ;trivial body
+;;    (and-let*
+;;     ((x 3)
+;;      (y 2)
+;;      (z (+ x y))
+;;      ((= z 5))
+;;      (true t))
+;;     true))
+;;   (should                               ;no body
+;;    (and-let*
+;;     ((x 3)
+;;      (y 2)
+;;      (z (+ x y))
+;;      ((= z 5))
+;;      (true t))))
+;;   (should-not
+;;    (and-let* (((= 5 6))) t)))
+
 ;; (ert-deftest insert-into-buffer ()
 ;;   ;; Without optional compat--arguments
 ;;   (with-temp-buffer