Added test cases for "Trebuchet" and "Cube Conundrum"
This commit is contained in:
parent
9ab9dcfb51
commit
e68701333b
|
@ -56,6 +56,14 @@
|
|||
<Filename Value="UGiveSeedFertilizerTestCases.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit>
|
||||
<Unit>
|
||||
<Filename Value="UTrebuchetTestCases.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit>
|
||||
<Unit>
|
||||
<Filename Value="UCubeConundrumTestCases.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
|
|
@ -3,8 +3,8 @@ program AdventOfCodeFPCUnit;
|
|||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
Interfaces, Forms, GuiTestRunner, USolver, UBaseTestCases, UGearRatiosTestCases, UScratchcardsTestCases,
|
||||
UGiveSeedFertilizerTestCases;
|
||||
Interfaces, Forms, GuiTestRunner, USolver, UBaseTestCases, UTrebuchetTestCases, UCubeConundrumTestCases,
|
||||
UGearRatiosTestCases, UScratchcardsTestCases, UGiveSeedFertilizerTestCases;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
@ -0,0 +1,89 @@
|
|||
{
|
||||
Solutions to the Advent Of Code.
|
||||
Copyright (C) 2023 Stefan Müller
|
||||
|
||||
This program is free software: you can redistribute it and/or modify it under
|
||||
the terms of the GNU General Public License as published by the Free Software
|
||||
Foundation, either version 3 of the License, or (at your option) any later
|
||||
version.
|
||||
|
||||
This program is distributed in the hope that it will be useful, but WITHOUT
|
||||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License along with
|
||||
this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
}
|
||||
|
||||
unit UCubeConundrumTestCases;
|
||||
|
||||
{$mode ObjFPC}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, fpcunit, testregistry, USolver, UBaseTestCases, UCubeConundrum;
|
||||
|
||||
type
|
||||
|
||||
{ TCubeConundrumFullDataTestCase }
|
||||
|
||||
TCubeConundrumFullDataTestCase = class(TEngineBaseTest)
|
||||
protected
|
||||
function CreateSolver: ISolver; override;
|
||||
published
|
||||
procedure TestPart1;
|
||||
procedure TestPart2;
|
||||
end;
|
||||
|
||||
{ TCubeConundrumExampleTestCase }
|
||||
|
||||
TCubeConundrumExampleTestCase = class(TExampleEngineBaseTest)
|
||||
protected
|
||||
function CreateSolver: ISolver; override;
|
||||
published
|
||||
procedure TestPart1;
|
||||
procedure TestPart2;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TCubeConundrumFullDataTestCase }
|
||||
|
||||
function TCubeConundrumFullDataTestCase.CreateSolver: ISolver;
|
||||
begin
|
||||
Result := TCubeConundrum.Create;
|
||||
end;
|
||||
|
||||
procedure TCubeConundrumFullDataTestCase.TestPart1;
|
||||
begin
|
||||
AssertEquals(2563, FSolver.GetResultPart1);
|
||||
end;
|
||||
|
||||
procedure TCubeConundrumFullDataTestCase.TestPart2;
|
||||
begin
|
||||
AssertEquals(70768, FSolver.GetResultPart2);
|
||||
end;
|
||||
|
||||
{ TCubeConundrumExampleTestCase }
|
||||
|
||||
function TCubeConundrumExampleTestCase.CreateSolver: ISolver;
|
||||
begin
|
||||
Result := TCubeConundrum.Create;
|
||||
end;
|
||||
|
||||
procedure TCubeConundrumExampleTestCase.TestPart1;
|
||||
begin
|
||||
AssertEquals(8, FSolver.GetResultPart1);
|
||||
end;
|
||||
|
||||
procedure TCubeConundrumExampleTestCase.TestPart2;
|
||||
begin
|
||||
AssertEquals(2286, FSolver.GetResultPart2);
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
RegisterTest(TCubeConundrumFullDataTestCase);
|
||||
RegisterTest(TCubeConundrumExampleTestCase);
|
||||
end.
|
|
@ -0,0 +1,118 @@
|
|||
{
|
||||
Solutions to the Advent Of Code.
|
||||
Copyright (C) 2023 Stefan Müller
|
||||
|
||||
This program is free software: you can redistribute it and/or modify it under
|
||||
the terms of the GNU General Public License as published by the Free Software
|
||||
Foundation, either version 3 of the License, or (at your option) any later
|
||||
version.
|
||||
|
||||
This program is distributed in the hope that it will be useful, but WITHOUT
|
||||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License along with
|
||||
this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
}
|
||||
|
||||
unit UTrebuchetTestCases;
|
||||
|
||||
{$mode ObjFPC}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, fpcunit, testregistry, USolver, UBaseTestCases, UTrebuchet;
|
||||
|
||||
type
|
||||
|
||||
{ TTrebuchetFullDataTestCase }
|
||||
|
||||
TTrebuchetFullDataTestCase = class(TEngineBaseTest)
|
||||
protected
|
||||
function CreateSolver: ISolver; override;
|
||||
published
|
||||
procedure TestPart1;
|
||||
procedure TestPart2;
|
||||
end;
|
||||
|
||||
{ TTrebuchetExampleTestCase }
|
||||
|
||||
TTrebuchetExampleTestCase = class(TExampleEngineBaseTest)
|
||||
protected
|
||||
function CreateSolver: ISolver; override;
|
||||
published
|
||||
procedure TestPart1;
|
||||
end;
|
||||
|
||||
{ TPart2ExampleTrebuchet }
|
||||
|
||||
TPart2ExampleTrebuchet = class(TTrebuchet)
|
||||
function GetDataFileName: string; override;
|
||||
end;
|
||||
|
||||
{ TTrebuchetPart2ExampleTestCase }
|
||||
|
||||
TTrebuchetPart2ExampleTestCase = class(TExampleEngineBaseTest)
|
||||
protected
|
||||
function CreateSolver: ISolver; override;
|
||||
published
|
||||
procedure TestPart2;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TTrebuchetFullDataTestCase }
|
||||
|
||||
function TTrebuchetFullDataTestCase.CreateSolver: ISolver;
|
||||
begin
|
||||
Result := TTrebuchet.Create;
|
||||
end;
|
||||
|
||||
procedure TTrebuchetFullDataTestCase.TestPart1;
|
||||
begin
|
||||
AssertEquals(56506, FSolver.GetResultPart1);
|
||||
end;
|
||||
|
||||
procedure TTrebuchetFullDataTestCase.TestPart2;
|
||||
begin
|
||||
AssertEquals(56017, FSolver.GetResultPart2);
|
||||
end;
|
||||
|
||||
{ TTrebuchetExampleTestCase }
|
||||
|
||||
function TTrebuchetExampleTestCase.CreateSolver: ISolver;
|
||||
begin
|
||||
Result := TTrebuchet.Create;
|
||||
end;
|
||||
|
||||
procedure TTrebuchetExampleTestCase.TestPart1;
|
||||
begin
|
||||
AssertEquals(142, FSolver.GetResultPart1);
|
||||
end;
|
||||
|
||||
{ TPart2ExampleTrebuchet }
|
||||
|
||||
function TPart2ExampleTrebuchet.GetDataFileName: string;
|
||||
begin
|
||||
Result := 'trebuchet_calibration_document2.txt';
|
||||
end;
|
||||
|
||||
{ TTrebuchetPart2ExampleTestCase }
|
||||
|
||||
function TTrebuchetPart2ExampleTestCase.CreateSolver: ISolver;
|
||||
begin
|
||||
Result := TPart2ExampleTrebuchet.Create;
|
||||
end;
|
||||
|
||||
procedure TTrebuchetPart2ExampleTestCase.TestPart2;
|
||||
begin
|
||||
AssertEquals(281, FSolver.GetResultPart2);
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
RegisterTest(TTrebuchetFullDataTestCase);
|
||||
RegisterTest(TTrebuchetExampleTestCase);
|
||||
RegisterTest(TTrebuchetPart2ExampleTestCase);
|
||||
end.
|
Loading…
Reference in New Issue