Browse Source

Postpone setting of prevline to correct message when prevline not found

Pierre Muller 1 year ago
parent
commit
c9260edb4f
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/utils/digest.pp

+ 1 - 1
tests/utils/digest.pp

@@ -49,7 +49,6 @@ var
 begin
 begin
   if st=prevline then
   if st=prevline then
     exit;
     exit;
-  prevline:=st;
   should_be_run:=next_should_be_run;
   should_be_run:=next_should_be_run;
   if next_should_be_run and
   if next_should_be_run and
      (pos(failed_to_run,st)<>1) and
      (pos(failed_to_run,st)<>1) and
@@ -60,6 +59,7 @@ begin
     begin
     begin
       Writeln('No run found for "',prevline,'"');
       Writeln('No run found for "',prevline,'"');
     end;
     end;
+  prevline:=st;
   next_should_be_run:=false;
   next_should_be_run:=false;
   if pos(failed_to_compile,st)=1 then
   if pos(failed_to_compile,st)=1 then
     begin
     begin