paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-28 09:03:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use array assertion in TIntervalSourceTest.AssertValueEquals

Browse Source 
git-svn-id: trunk@37582 -
This commit is contained in:
ask 2012-06-08 06:42:01 +00:00
parent f6fc1c150e
commit 22e7429e25
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/test/SourcesTest.pas
View File

@ -453,10 +453,12 @@ procedure TIntervalSourceTest.AssertValueEquals(
const AExpected: array of Double; const AActual: TChartValueTextArray);
var
i: Integer;
a: array of Double;
begin
AssertEquals(Length(AExpected), Length(AActual));
for i := 0 to High(AExpected) do
AssertEquals(AExpected[i], AActual[i].FValue);
SetLength(a, Length(AActual));
for i := 0 to High(AActual) do
a[i] := AActual[i].FValue;
AssertEquals(AExpected, a, 1e-6);
end;
procedure TIntervalSourceTest.IntervalSource;