branch: externals/compat
commit 1d0f6dbb91526bd6095f8227ad46c577fa774712
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@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
