warrence/AdventOfCode2023
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added solution for "Day 13: Point of Incidence", part 2

Browse Source
This commit is contained in:
Stefan Müller
2023-12-14 00:32:27 +01:00
committed by Stefan Müller
parent 6b888a3f68
commit 307eb14b55
2 changed files with 166 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/UPointOfIncidenceTestCases.pas
View File

@@ -33,6 +33,7 @@ type
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TPointOfIncidenceExampleTestCase }
@@ -42,6 +43,7 @@ type
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
implementation
@@ -58,6 +60,11 @@ begin
AssertEquals(37718, FSolver.GetResultPart1);
end;
procedure TPointOfIncidenceFullDataTestCase.TestPart2;
begin
AssertEquals(40995, FSolver.GetResultPart2);
end;
{ TPointOfIncidenceExampleTestCase }
function TPointOfIncidenceExampleTestCase.CreateSolver: ISolver;
@@ -70,6 +77,11 @@ begin
AssertEquals(405, FSolver.GetResultPart1);
end;
procedure TPointOfIncidenceExampleTestCase.TestPart2;
begin
AssertEquals(400, FSolver.GetResultPart2);
end;
initialization
RegisterTest(TPointOfIncidenceFullDataTestCase);