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

TAChart: Fix unit test for IsEquivalent.

Browse Source
This commit is contained in:
wp_xyz 2022-01-14 11:36:05 +01:00
parent 14e66c2cf4
commit 8e85780b9f
2 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -219,8 +219,8 @@ procedure TMathTest.TestIsEquivalent;
begin
AssertTrue(IsEquivalent(1.2345, 1.2345));
AssertTrue(IsEquivalent(SafeNaN, SafeNaN));
AssertTrue(IsEquivalent(1e100, 1e100+1));
AssertFalse(IsEquivalent(1e10, 1e10+1));
AssertTrue(IsEquivalent(double(1e100), double(1e100)+1));
AssertFalse(IsEquivalent(double(1e10), double(1e10)+1));
AssertFalse(IsEquivalent(5, SafeNaN));
AssertFalse(IsEquivalent(SafeNaN, 5));
end;

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

@ -6,6 +6,9 @@
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="TAChart tests"/>
@ -18,8 +21,8 @@
<Language Value=""/>
<CharSet Value=""/>
</VersionInfo>
<BuildModes>
<Item Name="default" Default="True"/>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
@ -35,27 +38,27 @@
<PackageName Value="TAChartLazarusPkg"/>
</Item1>
</RequiredPackages>
<Units>
<Unit>
<Units Count="5">
<Unit0>
<Filename Value="test.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
</Unit0>
<Unit1>
<Filename Value="UtilsTest.pas"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
</Unit1>
<Unit2>
<Filename Value="SourcesTest.pas"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
</Unit2>
<Unit3>
<Filename Value="AssertHelpers.pas"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
</Unit3>
<Unit4>
<Filename Value="DbTest.pas"/>
<IsPartOfProject Value="True"/>
</Unit>
</Unit4>
</Units>
</ProjectOptions>
<CompilerOptions>