[elpa] externals/compat 20d103c09c 09/13: Restore if-let* test

[ELPA Syncer]

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

    Restore if-let* test
---
 compat-tests.el | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index cc2f4fb36b..5b7f24ca40 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1171,6 +1171,18 @@
     (remhash 1 ht)
     (should-equal '(two) (hash-table-values ht))))
 
+(ert-deftest if-let* ()
+  (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")))
+
 (ert-deftest if-let ()
   (should (if-let (e (memq 0 '(1 2 3 0 5 6)))
               e))
@@ -1623,18 +1635,6 @@
 ;;                    ))
 ;;       (should-not (string-match-p unmatchable str)))))
 
-;; (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 regexp-unmatchable ()
 ;;   (dolist (str '(""                     ;empty string
 ;;                  "a"                    ;simple string