diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-27 16:13:30 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-27 16:13:30 +0200 |
| commit | 713e19a60adde301e5d7edc79f92bbb1b25b71a8 (patch) | |
| tree | f3e80084a762c96ee1d1d20917ed4d92766accac /lisp/emacs-lisp | |
| parent | 5b61f2defe2e6332a242849bf63862053551a4c1 (diff) | |
| download | emacs-713e19a60adde301e5d7edc79f92bbb1b25b71a8.tar.gz emacs-713e19a60adde301e5d7edc79f92bbb1b25b71a8.tar.bz2 emacs-713e19a60adde301e5d7edc79f92bbb1b25b71a8.zip | |
Fix parsing of erts files
* lisp/emacs-lisp/ert.el (ert-test-erts-file): Fix progress
through a test file (bug#51409).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 57655403c20..efc1825017b 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -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)) |