[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/compat c626917 18/99: Add a named-let test
From: |
ELPA Syncer |
Subject: |
[elpa] externals/compat c626917 18/99: Add a named-let test |
Date: |
Sun, 17 Oct 2021 05:57:50 -0400 (EDT) |
branch: externals/compat
commit c6269179e28708a1a89149b64f151c8e01266142
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Add a named-let test
---
compat-tests.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/compat-tests.el b/compat-tests.el
index 4c2b311..ba54d41 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -42,7 +42,6 @@
;; - line-number-at-pos (`compat--line-number-at-pos')
;; - macroexp-file-name (`compat--macroexp-file-name')
;; - make-nearby-temp-file (`compat--make-nearby-temp-file')
-;; - named-let (`compat--named-let')
;; - package-get-version (`compat--package-get-version')
;; - recenter (`compat--recenter')
;; - replace-regexp-in-region (`compat--replace-regexp-in-region')
@@ -1197,5 +1196,12 @@ the compatibility function."
(compat--should "Prompt 10: " "Prompt %d" nil 10)
(compat--should "Prompt \"abc\" (default 3): " "Prompt %S" 3
"abc")))
+(ert-deftest compat-named-let ()
+ "Check if `named-let' was implemented properly."
+ (should (= (compat--named-let l ((i 0)) (if (= i 8) i (l (1+ i))))
+ 8))
+ (should (= (compat--named-let l ((i 0) (x 1)) (if (= i 8) x (l (1+ i) (* x
2))))
+ (expt 2 8))))
+
(provide 'compat-tests)
;;; compat-tests.el ends here
- [elpa] externals/compat b8e8cba 07/99: Use markdown instead of outline-mode for the README file, (continued)
- [elpa] externals/compat b8e8cba 07/99: Use markdown instead of outline-mode for the README file, ELPA Syncer, 2021/10/17
- [elpa] externals/compat a403485 10/99: Require compat-macs in eval-when-compile instead of eval-and-compile, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 0d77194 14/99: Remove compat--disable-defer variable, ELPA Syncer, 2021/10/17
- [elpa] externals/compat eafe584 15/99: Remove unnecessary eval-and-compile block from compat-tests, ELPA Syncer, 2021/10/17
- [elpa] externals/compat c7d1615 06/99: Remove elisp-shorthands from compat-tests.el, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 5936773 08/99: Fix installation check, ELPA Syncer, 2021/10/17
- [elpa] externals/compat d77b31f 11/99: Reorder files to byte compile in Makefile, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 12e36f7 12/99: Check if actual name is fbound before binding a function or macro, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 5846fbe 13/99: Pull compatibility definition out of eval-after-load block, ELPA Syncer, 2021/10/17
- [elpa] externals/compat b3d1100 17/99: Prepend font-lock-preprocessor-face to compatibility symbols, ELPA Syncer, 2021/10/17
- [elpa] externals/compat c626917 18/99: Add a named-let test,
ELPA Syncer <=
- [elpa] externals/compat 4c6c31b 29/99: Replace :force with more general :cond, ELPA Syncer, 2021/10/17
- [elpa] externals/compat a983e8c 30/99: Install advice using advice instead of nadvice for Emacs 24.3, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 08c77ed 33/99: Declare variable for gensym, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 56ad375 40/99: Declare macrop for macroexpand-1, ELPA Syncer, 2021/10/17
- [elpa] externals/compat e4b57d2 28/99: Increase base version to 24.3, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 1430aaa 09/99: Add highlighting for compatibility code, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 79d4778 23/99: Use compat--string-trim-left in file-name-with-extension, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 156b5f5 27/99: Ensure substring is passed two arguments in string-width advise, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 14a3bce 39/99: Remove NonGNU ELPA installation code, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 6445814 51/99: Use compatibility functions in file-name-with-extension definition, ELPA Syncer, 2021/10/17