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

TAChart: Adapt test suite to change in r60642 #6d0a2c7637

Browse Source 
git-svn-id: trunk@60738 -
This commit is contained in:
wp 2019-03-20 16:41:34 +00:00
parent 113bfca313
commit 7ff89755ee
3 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -450,8 +450,6 @@ begin
end;
procedure TListSourceTest.Multi;
var
L: TStrings;
begin
FSource.Clear;
AssertEquals(1, FSource.YCount);

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

@ -118,12 +118,12 @@ begin
r := 6.0;
AssertTrue(FIList.Intersect(l, r, hint));
AssertEquals(2.0, r);
FIList.Epsilon := 0.1;
FIList.Epsilon := 0.1; // Meaning 10% of max exclusion edge, i.e. 0.2
l := 0.5;
r := 2.5;
AssertTrue(FIList.Intersect(l, r, hint));
AssertEquals(0.9, l);
AssertEquals(2.1, r);
AssertEquals(0.8, l);
AssertEquals(2.2, r);
end;
procedure TIntervalListTest.Merge;

7
components/tachart/test/test.lpi
View File

@ -1,14 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<ProjectOptions BuildModesCount="1">
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="TAChart tests"/>
<ResourceType Value="res"/>
</General>
@ -19,7 +18,7 @@
<Language Value=""/>
<CharSet Value=""/>
</VersionInfo>
<BuildModes Count="1">
<BuildModes>
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>