[elpa] externals/compat f0dddb1378 3/5: test named-let directly

[ELPA Syncer]

branch: externals/compat
commit f0dddb13782ed965691be0e6ba3b3ec00422ee24
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)))))))