[elpa] externals/compat 1d0f6db 56/99: Add compat-if-let* tests

[ELPA Syncer]

branch: externals/compat
commit 1d0f6dbb91526bd6095f8227ad46c577fa774712
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add compat-if-let* tests
---
 compat-tests.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/compat-tests.el b/compat-tests.el
index 0988004..a0a917a 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1229,5 +1229,18 @@ the compatibility function."
     (compat--should t "dir/subdir/")
     (compat--should nil "dir/subdir")))
 
+(ert-deftest compat-if-let* ()
+  "Check if `compat--if-let*' was implemented properly."
+  (should
+   (compat--if-let*
+    ((x 3)
+     (y 2)
+     (z (+ x y))
+     ((= z 5))
+     (true t))
+    true nil))
+  (should-not
+   (compat--if-let* (((= 5 6))) t nil)))
+
 (provide 'compat-tests)
 ;;; compat-tests.el ends here