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.Percentage test

Browse Source 
git-svn-id: trunk@28780 -
This commit is contained in:
ask 2010-12-20 07:20:46 +00:00
parent d16b7539c1
commit b156381a83
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,6 +58,7 @@ type
procedure TearDown; override;
published
procedure Reorder;
procedure Percentage;
end;
implementation
@ -67,10 +68,19 @@ uses
{ TCalculatedSourceTest }
procedure TCalculatedSourceTest.Percentage;
begin
FSource.Percentage := true;
AssertEquals(3, FSource.YCount);
AssertEquals(102 / (102 + 103 + 104) * 100, FSource[0]^.Y);
AssertEquals(103 / (102 + 103 + 104) * 100, FSource[0]^.YList[0]);
end;
procedure TCalculatedSourceTest.Reorder;
var
i, j: Integer;
begin
AssertEquals(3, FSource.YCount);
FSource.ReorderYList := '2';
AssertEquals(2, FSource.YCount);
AssertEquals(104, FSource[0]^.YList[0]);