[elpa] externals/compat 9710d60 2/2: Add additional TCO tests for named-let

[ELPA Syncer]

branch: externals/compat
commit 9710d609dabb155ef2d6a80490783843172f6ff6
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add additional TCO tests for named-let
---
 compat-tests.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/compat-tests.el b/compat-tests.el
index 89c80d2..fea0a12 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1219,6 +1219,17 @@ the compatibility function."
   (should (eq (compat--named-let loop ((x nil))
                 (cond (x)
                       (t 'ok)))
+              'ok))
+  (should (eq (compat--named-let loop ((x 100000))
+                (cond ((= x 0) 'ok)
+                      ((loop (1- x)))))
+              'ok))
+  (should (eq (compat--named-let loop ((x 100000))
+                (cond
+                 ((= x -1) nil)
+                 ((= x 0) 'ok)
+                 ((loop -1))
+                 ((loop (1- x)))))
               'ok)))
 
 (ert-deftest compat-directory-name-p ()