paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 23:28:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix ShowLastLog and ShowHistory methods

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-02 11:58:17 +01:00
parent 1034d4d9a5
commit ec788a84fd
1 changed files with 8 additions and 3 deletions

11
tests/utils/testsuite/tshttp.pp
View File

@ -768,8 +768,7 @@ begin
DumpLn(Format('Log of %s on run %d:',[FVars.TestFileName,aRunID]));
HeaderEnd(2);
PreformatStart;
system.Write(LLog);
system.flush(output);
Dump(LLog);
PreformatEnd;
end;
end;
@ -908,7 +907,13 @@ begin
end;
end; // FHTMLWriter;
If FVars.Debug or FVars.ListAll then
begin
if Q.Active then
Q.First
else
Q.Open;
ShowAllHistoryData(Q);
end;
ShowSourceFile;
Finally
lTable.Free;
@ -923,7 +928,7 @@ var
lTable : TTableProducer;
begin
aQuery.First;
FL:='RUN,Date,OK,SKIP,Result';
FL:='Run,Date,OK,Skip,Result';
if FVars.Submitter='' then
FL:=FL+',Submitter';
if FVars.Machine='' then