paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 14:19:17 +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; end;
procedure TListSourceTest.Multi; procedure TListSourceTest.Multi;
var
L: TStrings;
begin begin
FSource.Clear; FSource.Clear;
AssertEquals(1, FSource.YCount); AssertEquals(1, FSource.YCount);

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

@ -118,12 +118,12 @@ begin
r := 6.0; r := 6.0;
AssertTrue(FIList.Intersect(l, r, hint)); AssertTrue(FIList.Intersect(l, r, hint));
AssertEquals(2.0, r); 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; l := 0.5;
r := 2.5; r := 2.5;
AssertTrue(FIList.Intersect(l, r, hint)); AssertTrue(FIList.Intersect(l, r, hint));
AssertEquals(0.9, l); AssertEquals(0.8, l);
AssertEquals(2.1, r); AssertEquals(2.2, r);
end; end;
procedure TIntervalListTest.Merge; procedure TIntervalListTest.Merge;

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

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