procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix parsing of erts files

Browse source 
* lisp/emacs-lisp/ert.el (ert-test-erts-file): Fix progress
through a test file (bug#51409).
This commit is contained in:
Lars Ingebrigtsen 2021-10-27 16:13:30 +02:00
parent 5b61f2defe
commit 713e19a60a
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/ert.el
View file

@ -2670,10 +2670,11 @@ TRANSFORM will be called to get from before to after."
(insert-file-contents file)
(let ((gen-specs (list (cons 'dummy t)
(cons 'code transform))))
;; The start of the "before" part starts with a form feed and then
;; the name of the test.
;; Find the start of a test.
(while (re-search-forward "^=-=\n" nil t)
(setq gen-specs (ert-test--erts-test gen-specs file))))))
(setq gen-specs (ert-test--erts-test gen-specs file))
;; Search to the end of the test.
(re-search-forward "^=-=-=\n")))))
(defun ert-test--erts-test (gen-specs file)
(let* ((file-buffer (current-buffer))