branch: externals/compat
commit f0dddb13782ed965691be0e6ba3b3ec00422ee24
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
test named-let directly
---
compat-tests.el | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index 278a06e465..5e9278aabe 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1121,55 +1121,55 @@ being compared against."
(ought "Prompt \"abc\" (default 3): " "Prompt %S" 3 "abc"))
(ert-deftest compat-named-let ()
- "Check if `compat--t-named-let' was implemented properly."
- (should (= (compat--t-named-let l ((i 0)) (if (= i 8) i (l (1+ i))))
+ "Check if `named-let' was implemented properly."
+ (should (= (named-let l ((i 0)) (if (= i 8) i (l (1+ i))))
8))
- (should (= (compat--t-named-let l ((i 0)) (if (= i 100000) i (l (1+ i))))
+ (should (= (named-let l ((i 0)) (if (= i 100000) i (l (1+ i))))
100000))
- (should (= (compat--t-named-let l ((i 0))
+ (should (= (named-let l ((i 0))
(cond
((= i 100000) i)
((= (mod i 2) 0)
(l (+ i 2)))
((l (+ i 3)))))
100000))
- (should (= (compat--t-named-let l ((i 0) (x 1)) (if (= i 8) x (l (1+ i) (* x
2))))
+ (should (= (named-let l ((i 0) (x 1)) (if (= i 8) x (l (1+ i) (* x 2))))
(expt 2 8)))
- (should (eq (compat--t-named-let lop ((x 1))
+ (should (eq (named-let lop ((x 1))
(if (> x 0)
(condition-case nil
(lop (1- x))
(arith-error 'ok))
(/ 1 x)))
'ok))
- (should (eq (compat--t-named-let lop ((n 10000))
+ (should (eq (named-let lop ((n 10000))
(if (> n 0)
(condition-case nil
(/ n 0)
(arith-error (lop (1- n))))
'ok))
'ok))
- (should (eq (compat--t-named-let lop ((x nil))
+ (should (eq (named-let lop ((x nil))
(cond (x)
(t 'ok)))
'ok))
- (should (eq (compat--t-named-let lop ((x 100000))
+ (should (eq (named-let lop ((x 100000))
(cond ((= x 0) 'ok)
((lop (1- x)))))
'ok))
- (should (eq (compat--t-named-let lop ((x 100000))
+ (should (eq (named-let lop ((x 100000))
(cond
((= x -1) nil)
((= x 0) 'ok)
((lop -1))
((lop (1- x)))))
'ok))
- (should (eq (compat--t-named-let lop ((x 10000))
+ (should (eq (named-let lop ((x 10000))
(cond ((= x 0) 'ok)
((and t (lop (1- x))))))
'ok))
(should (eq (let ((b t))
- (compat--t-named-let lop ((i 0))
+ (named-let lop ((i 0))
(cond ((null i) nil) ((= i 10000) 'ok)
((lop (and (setq b (not b)) (1+ i))))
((lop (and (setq b (not b)) (1+ i)))))))
