paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add tests for TCustomChartSource.FindBounds procedure

Browse Source 
git-svn-id: trunk@38714 -
This commit is contained in:
ask 2012-09-17 11:25:53 +00:00
parent 085082ce94
commit a70dbab972
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,6 +40,7 @@ type
procedure TearDown; override;
published
procedure Basic;
procedure Bounds;
procedure Cache;
procedure DataPoint;
procedure DataPointSeparator;
@ -282,6 +283,41 @@ begin
end;
end;
procedure TListSourceTest.Bounds;
procedure Check(AExpectedLB, AExpectedUB: Integer; AValue: Double);
var
lb, ub: Integer;
begin
FSource.FindBounds(AValue, AValue, lb, ub);
AssertEquals(AExpectedLB, lb);
AssertEquals(AExpectedUB, ub);
end;
procedure CheckAll;
begin
Check(1, 1, 2);
Check(1, 0, 1.9);
Check(0, -1, 0.9);
Check(5, 4, 5.1);
Check(4, 3, 4.9);
end;
begin
FSource.Clear;
FSource.Add(1, 2);
FSource.Add(2, 3);
FSource.Add(3, 4);
FSource.Add(4, 5);
FSource.Add(5, 6);
FSource.Sorted := true;
CheckAll;
FSource.Sorted := false;
CheckAll;
FSource.SetXValue(1, SafeNan);
Check(2, 0, 2);
end;
procedure TListSourceTest.Cache;
begin
FSource.Clear;