mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add a test of handling of circular values to testcover-tests

Browse source 
* test/lisp/emacs-lisp-testcover-resources/testcases.el
(testcover-testcase-cyc1): New function.
(testcover-tests-circular-lists-bug-24402): New test.
This commit is contained in:
Gemini Lasswell 2017-07-20 12:01:42 -07:00 • committed by Noam Postavsky
parent 0508045ed7
commit 00f7e31110
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/lisp/emacs-lisp/testcover-resources/testcases.el
View file

@ -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.