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

TAChart: Add test for TListChartSource cache

Browse Source 
git-svn-id: trunk@38696 -
This commit is contained in:
ask 2012-09-16 17:49:22 +00:00
parent 583c74c2cc
commit c72cbcb8e4
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,6 +40,7 @@ type
procedure TearDown; override;
published
procedure Basic;
procedure Cache;
procedure DataPoint;
procedure DataPointSeparator;
procedure Enum;
@ -281,6 +282,24 @@ begin
end;
end;
procedure TListSourceTest.Cache;
begin
FSource.Clear;
FSource.Add(5, 6);
FSource.Add(7, 8);
AssertEquals(14, FSource.ValuesTotal);
FSource.Add(8, SafeNan);
AssertEquals(14, FSource.ValuesTotal);
FSource.Delete(2);
AssertEquals(14, FSource.ValuesTotal);
FSource.Delete(1);
AssertEquals(6, FSource.ValuesTotal);
FSource.SetYValue(0, SafeNan);
AssertEquals(0, FSource.ValuesTotal);
FSource.SetYValue(0, 5);
AssertEquals(5, FSource.ValuesTotal);
end;
procedure TListSourceTest.DataPoint;
begin
FSource.Clear;