branch: externals/compat
commit 8a479d7b5248330aa83d17df951b23d503607932
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Add when-let* test
---
compat-tests.el | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/compat-tests.el b/compat-tests.el
index 5b7f24ca40..5ca6301147 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 when-let* ()
+ (should-equal "second"
+ (when-let*
+ ((x 3)
+ (y 2)
+ (z (+ x y))
+ ((= z 5))
+ (true t))
+ "first" "second"))
+ (should-not
+ (when-let* (((= 5 6))) "first" "second")))
+
(ert-deftest if-let* ()
(should-equal "then"
(if-let*
