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

TAChart: Add TCalculatedSourceTest.Accumulate test

Browse Source 
git-svn-id: trunk@28782 -
This commit is contained in:
ask 2010-12-20 08:13:33 +00:00
parent 0cda469949
commit d3585038c2
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,8 +57,9 @@ type
procedure SetUp; override;
procedure TearDown; override;
published
procedure Reorder;
procedure Accumulate;
procedure Percentage;
procedure Reorder;
end;
implementation
@ -68,6 +69,20 @@ uses
{ TCalculatedSourceTest }
procedure TCalculatedSourceTest.Accumulate;
begin
FSource.AccumulationMethod := camSum;
FSource.AccumulationRange := 2;
AssertEquals(3, FSource.YCount);
AssertEquals(102, FSource[0]^.Y);
AssertEquals(102 + 202, FSource[1]^.Y);
AssertEquals(202 + 302, FSource[2]^.Y);
FSource.AccumulationMethod := camAverage;
AssertEquals((202 + 302) / 2, FSource[2]^.Y);
AssertEquals(102, FSource[0]^.Y);
AssertEquals((102 + 202) / 2, FSource[1]^.Y);
end;
procedure TCalculatedSourceTest.Percentage;
begin
FSource.Percentage := true;
@ -107,6 +122,7 @@ begin
FOrigin.YCount := 3;
FOrigin.SetYList(FOrigin.Add(1, 102), [103, 104]);
FOrigin.SetYList(FOrigin.Add(2, 202), [203, 204]);
FOrigin.SetYList(FOrigin.Add(3, 302), [303, 304]);
end;
procedure TCalculatedSourceTest.TearDown;