branch: externals/compat
commit 20d103c09cad3c625f0d123bf1dd3da29fa35ff2
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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
