[Emacs-diffs] master 00f7e31 4/8: Add a test of handling of circular values to testcover-tests

[Noam Postavsky]

branch: master
commit 00f7e31110a27e568529192d7441d9631b9096bc
Author: Gemini Lasswell <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Add a test of handling of circular values to testcover-tests
    
    * test/lisp/emacs-lisp-testcover-resources/testcases.el
    (testcover-testcase-cyc1): New function.
    (testcover-tests-circular-lists-bug-24402): New test.
---
 test/lisp/emacs-lisp/testcover-resources/testcases.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/test/lisp/emacs-lisp/testcover-resources/testcases.el 
b/test/lisp/emacs-lisp/testcover-resources/testcases.el
index 1eb791a..c9a5a6d 100644
--- a/test/lisp/emacs-lisp/testcover-resources/testcases.el
+++ b/test/lisp/emacs-lisp/testcover-resources/testcases.el
@@ -490,4 +490,14 @@ edebug spec, so testcover needs to cope with that."
 
 (should (eq (testcover-testcase-how-do-i-know-you "Liz") 'unknown))
 
+;; ==== circular-lists-bug-24402 ====
+"Testcover captures and ignores circular list errors."
+;; ====
+(defun testcover-testcase-cyc1 (a)
+  (let ((ls (make-list 10 a%%%)))
+    (nconc ls ls)
+    ls))
+(testcover-testcase-cyc1 1)
+(testcover-testcase-cyc1 1)
+
 ;; testcases.el ends here.