paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 06:10:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some corrections in output

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-02 11:54:53 +01:00
parent a341661f98
commit 1034d4d9a5
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -492,10 +492,10 @@ begin
'/'+aData.GetField('Ok')+ '/'+aData.GetField('Ok')+
'/'+aData.GetField('Total'), '/'+aData.GetField('Total'),
FRight); FRight);
EmitRow('Version:','VERSION'); EmitRow('Version:','Version');
EmitRow('Full version:','COMPILERFULLVERSION'); EmitRow('Full version:','CompilerFullVersion');
EmitRow('Config:','CONFIG'); EmitRow('Config:','Config');
EmitRow('Machine:','TP_MACHINE'); EmitRow('Machine:','Macgine');
if (FVars.CategoryID>0) then if (FVars.CategoryID>0) then
EmitRow('Category:','TU_CATEGORY_FK'); EmitRow('Category:','TU_CATEGORY_FK');
If (FVars.CategoryID=1) then If (FVars.CategoryID=1) then
@ -511,18 +511,18 @@ begin
FRight:=''; FRight:='';
EmitOneRow('SVN revisions:',FLeft,FRight); EmitOneRow('SVN revisions:',FLeft,FRight);
end; end;
EmitRow('Submitter:','SUBMITTER'); EmitRow('Submitter:','Submitter');
Date1 := aData.GetField('date'); Date1 := aData.GetField('Date');
if Not IsComp then if Not IsComp then
FRight:='' FRight:=''
else else
begin begin
Date2 := aCompData.GetField('date'); Date2 := aCompData.GetField('Date');
FRight:=Date2; FRight:=Date2;
end; end;
same_date:=(date1=Date2); same_date:=(date1=Date2);
EmitOneRow('Date:',Date1,FRight,same_date); EmitOneRow('Date:',Date1,FRight,same_date);
CompilerDate1 := aData.GetField('compilerdate'); CompilerDate1 := aData.GetField('CompilerDate');
if Not IsComp then if Not IsComp then
FRight:='' FRight:=''
else else
@ -756,16 +756,16 @@ var
begin begin
LLog:=FSQL.StringQuery(Format('select TR_LOG from TESTLASTRESULTS left join testresults on (TL_TESTRESULTS_FK=TR_ID) where (TR_TEST_FK=%d) and (TL_PLATFORM_FK=%d)',[aTestID,aPlatformID])); LLog:=FSQL.StringQuery(Format('select TR_LOG from TESTLASTRESULTS left join testresults on (TL_TESTRESULTS_FK=TR_ID) where (TR_TEST_FK=%d) and (TL_PLATFORM_FK=%d)',[aTestID,aPlatformID]));
With FHTMLWriter do With FHTMLWriter do
if LLog<>'' then if LLog='' then
begin begin
HeaderStart(2); HeaderStart(2);
DumpLn(Format('No log of %d:',[aRunId])); DumpLn(Format('No log of %s on run %d:',[FVars.TestFileName,aRunId]));
HeaderEnd(2); HeaderEnd(2);
end end
else else
begin begin
HeaderStart(2); HeaderStart(2);
DumpLn(Format('Log of %d:',[aRunID])); DumpLn(Format('Log of %s on run %d:',[FVars.TestFileName,aRunID]));
HeaderEnd(2); HeaderEnd(2);
PreformatStart; PreformatStart;
system.Write(LLog); system.Write(LLog);