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

* Fix version history

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-02 12:26:17 +01:00
parent 3677680c08
commit cf632954d4
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/utils/testsuite/tshistory.pas
View File

@ -41,7 +41,7 @@ Type
private private
function FormatDetailURL(aRunID: Int64; aDate: TDateTime): string; function FormatDetailURL(aRunID: Int64; aDate: TDateTime): string;
procedure HandleCPU(aRunID: Int64; aCPUID: Integer; aStatus: TTestStatus; aDate: TDateTime); procedure HandleCPU(aRunID: Int64; aCPUID: Integer; aStatus: TTestStatus; aDate: TDateTime);
procedure HandleDates(aRunID: Int64; aStatus: TTestStatus; aMap: TDatasetMap); procedure HandleDates(aRunID: Int64; aStatus: TTestStatus; aDate: TDateTime);
procedure HandleOS(aRunID: Int64; aOSID: Integer; aStatus: TTestStatus; aDate: TDateTime); procedure HandleOS(aRunID: Int64; aOSID: Integer; aStatus: TTestStatus; aDate: TDateTime);
procedure HandleVersion(aRunID: Int64; aVersionID: Integer; aStatus: TTestStatus; aDate: TDateTime); procedure HandleVersion(aRunID: Int64; aVersionID: Integer; aStatus: TTestStatus; aDate: TDateTime);
function MapCpu(aID: Integer): integer; function MapCpu(aID: Integer): integer;
@ -232,17 +232,13 @@ begin
end; end;
procedure TTestHistoryInfo.HandleDates(aRunID : Int64; aStatus : TTestStatus; aMap : TDatasetMap); procedure TTestHistoryInfo.HandleDates(aRunID : Int64; aStatus : TTestStatus; aDate : TDateTime);
var
lDate : TDateTime;
begin begin
lDate:=aMap.Date.AsDateTime;
if Result_count[aStatus]=0 then if Result_count[aStatus]=0 then
begin begin
first_date[aStatus]:=lDate; first_date[aStatus]:=aDate;
last_date[aStatus]:=lDate; last_date[aStatus]:=aDate;
first_date_id[aStatus]:=aRunID; first_date_id[aStatus]:=aRunID;
last_date_id[aStatus]:=aRunID; last_date_id[aStatus]:=aRunID;
end end
@ -250,12 +246,12 @@ begin
begin begin
if (date>last_date[aStatus]) then if (date>last_date[aStatus]) then
begin begin
last_date[aStatus]:=lDate; last_date[aStatus]:=aDate;
last_date_id[aStatus]:=aRunID; last_date_id[aStatus]:=aRunID;
end; end;
if date<first_date[aStatus] then if date<first_date[aStatus] then
begin begin
first_date[aStatus]:=lDate; first_date[aStatus]:=aDate;
first_date_id[aStatus]:=aRunID; first_date_id[aStatus]:=aRunID;
end; end;
end; end;
@ -324,9 +320,10 @@ begin
if (Resi>=longint(FirstStatus)) and (Resi<=longint(LastStatus)) then if (Resi>=longint(FirstStatus)) and (Resi<=longint(LastStatus)) then
begin begin
TS:=TTestStatus(Resi); TS:=TTestStatus(Resi);
inc(Result_count[TS]);
HandleDates(lRunID,ts,lMap);
lDate:=lMap.Date.AsDateTime; lDate:=lMap.Date.AsDateTime;
HandleDates(lRunID,ts,lDate);
// Do this only after the dates were handled, handleDates() has a 0=Result_count[TS] test.
Inc(Result_count[TS]);
HandleCPU(lRunID,lMap.CPU.asInteger,ts,lDate); HandleCPU(lRunID,lMap.CPU.asInteger,ts,lDate);
HandleOS(lRunID,lMap.OS.AsInteger,ts,lDate); HandleOS(lRunID,lMap.OS.AsInteger,ts,lDate);
HandleVersion(lRunID,lMap.Version.AsInteger,ts,lDate); HandleVersion(lRunID,lMap.Version.AsInteger,ts,lDate);
@ -414,7 +411,7 @@ begin
RowNext; RowNext;
CellStart; CellStart;
CellNext; CellNext;
DumpLn(FSQL.GetOSName(i)); DumpLn(FSQL.GetOSName(FOSMap[i]));
CellNext; CellNext;
DumpLn(Format('%d',[os_count[i,TS]])); DumpLn(Format('%d',[os_count[i,TS]]));
CellNext; CellNext;
@ -444,7 +441,7 @@ begin
RowNext; RowNext;
CellStart; CellStart;
CellNext; CellNext;
DumpLn(FSQL.GetVersionName(i)); DumpLn(FSQL.GetVersionName(FVersionMap[i]));
CellNext; CellNext;
DumpLn(Format('%d',[version_count[i,TS]])); DumpLn(Format('%d',[version_count[i,TS]]));
CellNext; CellNext;