paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-06 04:03:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Test LineIntersectsRect function

Browse Source 
git-svn-id: trunk@26681 -
This commit is contained in:
ask 2010-07-16 09:52:50 +00:00
parent e33d5d0f1a
commit 1b0b91f3d3
3 changed files with 53 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,6 +40,16 @@ type
end;
{ TGeometryTest }
TGeometryTest = class(TTestCase)
private
procedure AssertEquals(const Expected, Actual: TDoublePoint); overload;
published
procedure TestLineIntersectsRect;
end;
implementation
{ TIntervalListTest }
@ -109,9 +119,49 @@ begin
FreeAndNil(FIList);
end;
{ TGeometryTest }
procedure TGeometryTest.AssertEquals(const Expected, Actual: TDoublePoint);
begin
AssertEquals(Expected.X, Actual.X);
AssertEquals(Expected.Y, Actual.Y);
end;
procedure TGeometryTest.TestLineIntersectsRect;
var
r: TDoubleRect = (a: (X: 0; Y: 0); b: (X: 20; Y: 10));
procedure Check(AP1, AP2, AR1, AR2: TDoublePoint);
begin
AssertTrue(LineIntersectsRect(AP1, AP2, r));
AssertEquals(AR1, AP1);
AssertEquals(AR2, AP2);
end;
var
p1, p2: TDoublePoint;
begin
p1 := DoublePoint(-1, -1);
p2 := DoublePoint(0, 20);
AssertFalse(LineIntersectsRect(p1, p2, r));
p1 := DoublePoint(100, 20);
AssertFalse(LineIntersectsRect(p1, p2, r));
p1 := DoublePoint(-1, -1);
p2 := DoublePoint(1, 1);
Check(p1, p2, DoublePoint(0, 0), p2);
p1 := DoublePoint(0, 0);
Check(p1, p2, p1, p2);
p1 := DoublePoint(20, 20);
p2 := DoublePoint(20, -10);
Check(p1, p2, DoublePoint(20, 10), DoublePoint(20, 0));
p1 := DoublePoint(10, 20);
p2 := DoublePoint(15, -10);
Check(p1, p2, DoublePoint(11.6667, 10), DoublePoint(13.3333, 0));
end;
initialization
RegisterTests([TIntervalListTest]);
RegisterTests([TIntervalListTest, TGeometryTest]);
end.

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

@ -6,12 +6,12 @@
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<UseDefaultCompilerOptions Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="TAChart tests"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>

2
components/tachart/test/test.lpr
View File

@ -75,7 +75,7 @@ var
begin
Application:=TAChartTests.Create(nil);
Application.Title:='TAChart tests';
Application.Title := 'TAChart tests';
Application.Initialize;
Application.Run;
Application.Free;