paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 17:49:07 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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