emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/compat 414135b6f9 06/13: Restore and-let test


From: ELPA Syncer
Subject: [elpa] externals/compat 414135b6f9 06/13: Restore and-let test
Date: Wed, 4 Jan 2023 11:57:31 -0500 (EST)

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

    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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]