paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add tests for TCustomChartSource.Intervals.Tolerance

Browse Source 
git-svn-id: trunk@38665 -
This commit is contained in:
ask 2012-09-15 09:30:46 +00:00
parent f69a675b05
commit 0ce0a99c98
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -504,6 +504,7 @@ var
begin
p := VDummyTransform.PrepareValuesInRangeParams;
p.FFormat := '%4:g';
src := TListChartSource.Create(nil);
for i := 1 to 10 do
src.Add(10 * i, i);
@ -526,6 +527,11 @@ begin
p.FIntervals.Options := p.FIntervals.Options + [aipUseMinLength];
p.FMax := 50;
Check([8, 30, 50, 60]);
AssertEquals('Lower bound not first in-range value', '8', r[0].FText);
src.Sort;
Check([8, 30, 50, 60]);
p.FIntervals.Tolerance := 3;
Check([10, 30, 50, 60]);
finally
p.FIntervals.Free;
src.Free;