branch: externals/compat
commit 414135b6f9d7b2d8d24b408c45fd6713891c085c
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Restore and-let test
---
compat-tests.el | 38 +++++++++++++++++++-------------------
1 file changed, 19 insertions(+), 19 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index 92120da912..96ec1de212 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1171,6 +1171,25 @@
(remhash 1 ht)
(should-equal '(two) (hash-table-values ht))))
+(ert-deftest and-let* ()
+ (should ;trivial body
+ (and-let*
+ ((x 3)
+ (y 2)
+ (z (+ x y))
+ ((= z 5))
+ (true t))
+ true))
+ (should ;no body
+ (and-let*
+ ((x 3)
+ (y 2)
+ (z (+ x y))
+ ((= z 5))
+ (true t))))
+ (should-not
+ (and-let* (((= 5 6))) t)))
+
(ert-deftest named-let ()
(should (= (named-let l ((i 0)) (if (= i 8) i (l (1+ i))))
8))
@@ -1613,25 +1632,6 @@
;; (should-not
;; (if-let (((= 5 6))) t nil)))
-;; (ert-deftest and-let* ()
-;; (should ;trivial body
-;; (and-let*
-;; ((x 3)
-;; (y 2)
-;; (z (+ x y))
-;; ((= z 5))
-;; (true t))
-;; true))
-;; (should ;no body
-;; (and-let*
-;; ((x 3)
-;; (y 2)
-;; (z (+ x y))
-;; ((= z 5))
-;; (true t))))
-;; (should-not
-;; (and-let* (((= 5 6))) t)))
-
;; (ert-deftest regexp-unmatchable ()
;; (dolist (str '("" ;empty string
;; "a" ;simple string
