[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 713e19a: Fix parsing of erts files
From: |
Lars Ingebrigtsen |
Subject: |
master 713e19a: Fix parsing of erts files |
Date: |
Wed, 27 Oct 2021 10:13:38 -0400 (EDT) |
branch: master
commit 713e19a60adde301e5d7edc79f92bbb1b25b71a8
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix parsing of erts files
* lisp/emacs-lisp/ert.el (ert-test-erts-file): Fix progress
through a test file (bug#51409).
---
lisp/emacs-lisp/ert.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 5765540..efc1825 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 713e19a: Fix parsing of erts files,
Lars Ingebrigtsen <=