[elpa] externals/compat 8a479d7b52 10/13: Add when-let* test

[ELPA Syncer]

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

    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*