From c9260edb4fc5de04cc0ff8bdad2c1f6e3f7759f4 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Thu, 13 Jun 2024 08:54:59 +0200
Subject: [PATCH] Postpone setting of prevline to correct message when prevline
not found
---
tests/utils/digest.pp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tests/utils/digest.pp b/tests/utils/digest.pp
index c11c2ea7a6..e326425ed0 100644
--- a/tests/utils/digest.pp
+++ b/tests/utils/digest.pp
@@ -49,7 +49,6 @@ var
begin
if st=prevline then
exit;
- prevline:=st;
should_be_run:=next_should_be_run;
if next_should_be_run and
(pos(failed_to_run,st)<>1) and
@@ -60,6 +59,7 @@ begin
begin
Writeln('No run found for "',prevline,'"');
end;
+ prevline:=st;
next_should_be_run:=false;
if pos(failed_to_compile,st)=1 then
begin