paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 00:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add two new button to simplify inspecting evolutiontestsuite difference in time

Browse Source 
git-svn-id: trunk@48110 -
This commit is contained in:
pierre 2021-01-08 09:57:31 +00:00
parent d2b0bcdf1f
commit 37201319bf
1 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
tests/utils/testsuite/utests.pp
View File

@ -153,6 +153,9 @@ const
faction_compare_with_next = 6; faction_compare_with_next = 6;
faction_compare2_with_previous = 7; faction_compare2_with_previous = 7;
faction_compare2_with_next = 8; faction_compare2_with_next = 8;
faction_compare_both_with_previous = 9;
faction_compare_both_with_next = 10;
Function TestResultsTableName(const RunId : String) : string; Function TestResultsTableName(const RunId : String) : string;
var var
@ -347,6 +350,18 @@ begin
FCompareRunID:=FNext2RunID; FCompareRunID:=FNext2RunID;
ShowRunComparison; ShowRunComparison;
end; end;
faction_compare_both_with_previous :
begin
FRunID:=FPreviousRunID;
FCompareRunID:=FPrevious2RunID;
ShowRunComparison;
end;
faction_compare_both_with_next :
begin
FRunID:=FNextRunID;
FCompareRunID:=FNext2RunID;
ShowRunComparison;
end;
{$ifdef TEST} {$ifdef TEST}
98 : 98 :
begin begin
@ -402,6 +417,10 @@ begin
FAction:=faction_compare2_with_previous FAction:=faction_compare2_with_previous
else if S='Compare_right_to_next' then else if S='Compare_right_to_next' then
FAction:=faction_compare2_with_next FAction:=faction_compare2_with_next
else if S='Compare_both_to_previous' then
FAction:=faction_compare_both_with_previous
else if S='Compare_both_to_next' then
FAction:=faction_compare_both_with_next
else else
FAction:=StrToIntDef(S,0); FAction:=StrToIntDef(S,0);
S:=RequestVariables['limit']; S:=RequestVariables['limit'];
@ -1397,7 +1416,22 @@ begin
ParaGraphStart; ParaGraphStart;
end; end;
EmitSubmitButton('action','Show/Compare'); if (FPrevious2RunID<>'') and (FPreviousRunId<>'') then
begin
EmitSubmitButton('action','Compare_both_to_previous');
AddNewPar:=true;
end;
if (FNext2RunID<>'') and (FNextRunId<>'') then
begin
EmitSubmitButton('action','Compare_both_to_next');
AddNewPar:=true;
end;
if AddNewPar then
begin
ParagraphEnd;
ParaGraphStart;
end;
EmitSubmitButton('action','Show/Compare');
if FTestFileID<>'' then if FTestFileID<>'' then
EmitSubmitButton('action','View_history'); EmitSubmitButton('action','View_history');
EmitResetButton('','Reset form'); EmitResetButton('','Reset form');