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

Removed full data test cases

Browse Source 
Providing full access to the solver code is the purpose of this project
repository. However, I think there should be some work in getting to
the actual solutions to not open the doors to abuse.
This commit is contained in:
Stefan Müller 2024-06-17 14:00:22 +02:00
parent 8eb76329c1
commit f66e3fc2d8
24 changed files with 0 additions and 642 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/UAplentyTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TAplentyFullDataTestCase }
TAplentyFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TAplentyExampleTestCase }
TAplentyExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TAplentyFullDataTestCase }
function TAplentyFullDataTestCase.CreateSolver: ISolver;
begin
Result := TAplenty.Create;
end;
procedure TAplentyFullDataTestCase.TestPart1;
begin
AssertEquals(331208, FSolver.GetResultPart1);
end;
procedure TAplentyFullDataTestCase.TestPart2;
begin
AssertEquals(121464316215623, FSolver.GetResultPart2);
end;
{ TAplentyExampleTestCase }
function TAplentyExampleTestCase.CreateSolver: ISolver;
@ -84,7 +57,6 @@ end;
initialization
RegisterTest('TAplenty', TAplentyFullDataTestCase);
RegisterTest('TAplenty', TAplentyExampleTestCase);
end.

28
tests/UCamelCardsTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TCamelCardsFullDataTestCase }
TCamelCardsFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TCamelCardsExampleTestCase }
TCamelCardsExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TCamelCardsFullDataTestCase }
function TCamelCardsFullDataTestCase.CreateSolver: ISolver;
begin
Result := TCamelCards.Create;
end;
procedure TCamelCardsFullDataTestCase.TestPart1;
begin
AssertEquals(254024898, FSolver.GetResultPart1);
end;
procedure TCamelCardsFullDataTestCase.TestPart2;
begin
AssertEquals(254115617, FSolver.GetResultPart2);
end;
{ TCamelCardsExampleTestCase }
function TCamelCardsExampleTestCase.CreateSolver: ISolver;
@ -84,6 +57,5 @@ end;
initialization
RegisterTest('TCamelCards', TCamelCardsFullDataTestCase);
RegisterTest('TCamelCards', TCamelCardsExampleTestCase);
end.

28
tests/UCosmicExpansionTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TCosmicExpansionFullDataTestCase }
TCosmicExpansionFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TCosmicExpansionExampleTestCase }
TCosmicExpansionExampleTestCase = class(TExampleEngineBaseTest)
@ -65,23 +55,6 @@ type
implementation
{ TCosmicExpansionFullDataTestCase }
function TCosmicExpansionFullDataTestCase.CreateSolver: ISolver;
begin
Result := TCosmicExpansion.Create;
end;
procedure TCosmicExpansionFullDataTestCase.TestPart1;
begin
AssertEquals(9686930, FSolver.GetResultPart1);
end;
procedure TCosmicExpansionFullDataTestCase.TestPart2;
begin
AssertEquals(630728425490, FSolver.GetResultPart2);
end;
{ TCosmicExpansionExampleTestCase }
function TCosmicExpansionExampleTestCase.CreateSolver: ISolver;
@ -120,7 +93,6 @@ end;
initialization
RegisterTest('TCosmicExpansion', TCosmicExpansionFullDataTestCase);
RegisterTest('TCosmicExpansion', TCosmicExpansionExampleTestCase);
RegisterTest('TCosmicExpansion', TCosmicExpansionExampleFactor10TestCase);
RegisterTest('TCosmicExpansion', TCosmicExpansionExampleFactor100TestCase);

28
tests/UCubeConundrumTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TCubeConundrumFullDataTestCase }
TCubeConundrumFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TCubeConundrumExampleTestCase }
TCubeConundrumExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
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;
@ -84,6 +57,5 @@ end;
initialization
RegisterTest('TCubeConundrum', TCubeConundrumFullDataTestCase);
RegisterTest('TCubeConundrum', TCubeConundrumExampleTestCase);
end.

28
tests/UFloorWillBeLavaTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TFloorWillBeLavaFullDataTestCase }
TFloorWillBeLavaFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TFloorWillBeLavaExampleTestCase }
TFloorWillBeLavaExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TFloorWillBeLavaFullDataTestCase }
function TFloorWillBeLavaFullDataTestCase.CreateSolver: ISolver;
begin
Result := TFloorWillBeLava.Create;
end;
procedure TFloorWillBeLavaFullDataTestCase.TestPart1;
begin
AssertEquals(7392, FSolver.GetResultPart1);
end;
procedure TFloorWillBeLavaFullDataTestCase.TestPart2;
begin
AssertEquals(7665, FSolver.GetResultPart2);
end;
{ TFloorWillBeLavaExampleTestCase }
function TFloorWillBeLavaExampleTestCase.CreateSolver: ISolver;
@ -84,7 +57,6 @@ end;
initialization
RegisterTest('TFloorWillBeLava', TFloorWillBeLavaFullDataTestCase);
RegisterTest('TFloorWillBeLava', TFloorWillBeLavaExampleTestCase);
end.

28
tests/UGearRatiosTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TGearRatiosFullDataTestCase }
TGearRatiosFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TGearRatiosExampleTestCase }
TGearRatiosExampleTestCase = class(TExampleEngineBaseTest)
@ -57,23 +47,6 @@ type
implementation
{ TGearRatiosFullDataTestCase }
function TGearRatiosFullDataTestCase.CreateSolver: ISolver;
begin
Result := TGearRatios.Create;
end;
procedure TGearRatiosFullDataTestCase.TestPart1;
begin
AssertEquals(530495, FSolver.GetResultPart1);
end;
procedure TGearRatiosFullDataTestCase.TestPart2;
begin
AssertEquals(80253814, FSolver.GetResultPart2);
end;
{ TGearRatiosExampleTestCase }
function TGearRatiosExampleTestCase.CreateSolver: ISolver;
@ -108,7 +81,6 @@ end;
initialization
RegisterTest('TGearRatios', TGearRatiosFullDataTestCase);
RegisterTest('TGearRatios', TGearRatiosExampleTestCase);
RegisterTest('TGearRatios', TGearRatiosTestCase);
end.

28
tests/UGiveSeedFertilizerTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TGiveSeedFertilizerFullDataTestCase }
TGiveSeedFertilizerFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TGiveSeedFertilizerExampleTestCase }
TGiveSeedFertilizerExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TGiveSeedFertilizerFullDataTestCase }
function TGiveSeedFertilizerFullDataTestCase.CreateSolver: ISolver;
begin
Result := TGiveSeedFertilizer.Create;
end;
procedure TGiveSeedFertilizerFullDataTestCase.TestPart1;
begin
AssertEquals(51580674, FSolver.GetResultPart1);
end;
procedure TGiveSeedFertilizerFullDataTestCase.TestPart2;
begin
AssertEquals(99751240, FSolver.GetResultPart2);
end;
{ TGiveSeedFertilizerExampleTestCase }
function TGiveSeedFertilizerExampleTestCase.CreateSolver: ISolver;
@ -84,6 +57,5 @@ end;
initialization
RegisterTest('TGiveSeedFertilizer', TGiveSeedFertilizerFullDataTestCase);
RegisterTest('TGiveSeedFertilizer', TGiveSeedFertilizerExampleTestCase);
end.

28
tests/UHauntedWastelandTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ THauntedWastelandFullDataTestCase }
THauntedWastelandFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ THauntedWastelandExampleTestCase }
THauntedWastelandExampleTestCase = class(TExampleEngineBaseTest)
@ -77,23 +67,6 @@ type
implementation
{ THauntedWastelandFullDataTestCase }
function THauntedWastelandFullDataTestCase.CreateSolver: ISolver;
begin
Result := THauntedWasteland.Create;
end;
procedure THauntedWastelandFullDataTestCase.TestPart1;
begin
AssertEquals(14257, FSolver.GetResultPart1);
end;
procedure THauntedWastelandFullDataTestCase.TestPart2;
begin
AssertEquals(16187743689077, FSolver.GetResultPart2);
end;
{ THauntedWastelandExampleTestCase }
function THauntedWastelandExampleTestCase.CreateSolver: ISolver;
@ -146,7 +119,6 @@ end;
initialization
RegisterTest('THauntedWasteland', THauntedWastelandFullDataTestCase);
RegisterTest('THauntedWasteland', THauntedWastelandExampleTestCase);
RegisterTest('THauntedWasteland', THauntedWastelandExample2TestCase);
RegisterTest('THauntedWasteland', THauntedWastelandExample3TestCase);

22
tests/UHotSpringsTestCases.pas
View File

@ -26,15 +26,6 @@ uses
type
{ THotSpringsFullDataTestCase }
THotSpringsFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
end;
{ THotSpringsExampleTestCase }
THotSpringsExampleTestCase = class(TExampleEngineBaseTest)
@ -61,18 +52,6 @@ type
implementation
{ THotSpringsFullDataTestCase }
function THotSpringsFullDataTestCase.CreateSolver: ISolver;
begin
Result := THotSprings.Create;
end;
procedure THotSpringsFullDataTestCase.TestPart1;
begin
AssertEquals(7344, FSolver.GetResultPart1);
end;
{ THotSpringsExampleTestCase }
function THotSpringsExampleTestCase.CreateSolver: ISolver;
@ -132,7 +111,6 @@ end;
initialization
RegisterTest('THotSprings', THotSpringsFullDataTestCase);
RegisterTest('THotSprings', THotSpringsExampleTestCase);
RegisterTest('THotSprings', THotSpringsTestCase);
end.

28
tests/ULavaductLagoonTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TLavaductLagoonFullDataTestCase }
TLavaductLagoonFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TLavaductLagoonExampleTestCase }
TLavaductLagoonExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TLavaductLagoonFullDataTestCase }
function TLavaductLagoonFullDataTestCase.CreateSolver: ISolver;
begin
Result := TLavaductLagoon.Create;
end;
procedure TLavaductLagoonFullDataTestCase.TestPart1;
begin
AssertEquals(-1, FSolver.GetResultPart1);
end;
procedure TLavaductLagoonFullDataTestCase.TestPart2;
begin
AssertEquals(-1, FSolver.GetResultPart2);
end;
{ TLavaductLagoonExampleTestCase }
function TLavaductLagoonExampleTestCase.CreateSolver: ISolver;
@ -84,7 +57,6 @@ end;
initialization
//RegisterTest('TLavaductLagoon', TLavaductLagoonFullDataTestCase);
//RegisterTest('TLavaductLagoon', TLavaductLagoonExampleTestCase);
end.

28
tests/ULensLibraryTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TLensLibraryFullDataTestCase }
TLensLibraryFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TLensLibraryExampleTestCase }
TLensLibraryExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TLensLibraryFullDataTestCase }
function TLensLibraryFullDataTestCase.CreateSolver: ISolver;
begin
Result := TLensLibrary.Create;
end;
procedure TLensLibraryFullDataTestCase.TestPart1;
begin
AssertEquals(519041, FSolver.GetResultPart1);
end;
procedure TLensLibraryFullDataTestCase.TestPart2;
begin
AssertEquals(260530, FSolver.GetResultPart2);
end;
{ TLensLibraryExampleTestCase }
function TLensLibraryExampleTestCase.CreateSolver: ISolver;
@ -84,7 +57,6 @@ end;
initialization
RegisterTest('TLensLibrary', TLensLibraryFullDataTestCase);
RegisterTest('TLensLibrary', TLensLibraryExampleTestCase);
end.

22
tests/ULongWalkTestCases.pas
View File

@ -26,15 +26,6 @@ uses
type
{ TLongWalkFullDataTestCase }
TLongWalkFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
end;
{ TLongWalkExampleTestCase }
TLongWalkExampleTestCase = class(TExampleEngineBaseTest)
@ -46,18 +37,6 @@ type
implementation
{ TLongWalkFullDataTestCase }
function TLongWalkFullDataTestCase.CreateSolver: ISolver;
begin
Result := TLongWalk.Create;
end;
procedure TLongWalkFullDataTestCase.TestPart1;
begin
AssertEquals(2218, FSolver.GetResultPart1);
end;
{ TLongWalkExampleTestCase }
function TLongWalkExampleTestCase.CreateSolver: ISolver;
@ -72,7 +51,6 @@ end;
initialization
RegisterTest('TLongWalk', TLongWalkFullDataTestCase);
RegisterTest('TLongWalk', TLongWalkExampleTestCase);
end.

28
tests/UMirageMaintenanceTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TMirageMaintenanceFullDataTestCase }
TMirageMaintenanceFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TMirageMaintenanceExampleTestCase }
TMirageMaintenanceExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TMirageMaintenanceFullDataTestCase }
function TMirageMaintenanceFullDataTestCase.CreateSolver: ISolver;
begin
Result := TMirageMaintenance.Create;
end;
procedure TMirageMaintenanceFullDataTestCase.TestPart1;
begin
AssertEquals(1877825184, FSolver.GetResultPart1);
end;
procedure TMirageMaintenanceFullDataTestCase.TestPart2;
begin
AssertEquals(1108, FSolver.GetResultPart2);
end;
{ TMirageMaintenanceExampleTestCase }
function TMirageMaintenanceExampleTestCase.CreateSolver: ISolver;
@ -84,6 +57,5 @@ end;
initialization
RegisterTest('TMirageMaintenance', TMirageMaintenanceFullDataTestCase);
RegisterTest('TMirageMaintenance', TMirageMaintenanceExampleTestCase);
end.

28
tests/UNeverTellMeTheOddsTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TNeverTellMeTheOddsFullDataTestCase }
TNeverTellMeTheOddsFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TNeverTellMeTheOddsExampleTestCase }
TNeverTellMeTheOddsExampleTestCase = class(TExampleEngineBaseTest)
@ -67,23 +57,6 @@ type
implementation
{ TNeverTellMeTheOddsFullDataTestCase }
function TNeverTellMeTheOddsFullDataTestCase.CreateSolver: ISolver;
begin
Result := TNeverTellMeTheOdds.Create;
end;
procedure TNeverTellMeTheOddsFullDataTestCase.TestPart1;
begin
AssertEquals(15107, FSolver.GetResultPart1);
end;
procedure TNeverTellMeTheOddsFullDataTestCase.TestPart2;
begin
AssertEquals(856642398547748, FSolver.GetResultPart2);
end;
{ TNeverTellMeTheOddsExampleTestCase }
function TNeverTellMeTheOddsExampleTestCase.CreateSolver: ISolver;
@ -178,7 +151,6 @@ end;
initialization
RegisterTest('TNeverTellMeTheOdds', TNeverTellMeTheOddsFullDataTestCase);
RegisterTest('TNeverTellMeTheOdds', TNeverTellMeTheOddsExampleTestCase);
RegisterTest('TNeverTellMeTheOdds', TNeverTellMeTheOddsTestCase);
end.

28
tests/UParabolicReflectorDishTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TParabolicReflectorDishFullDataTestCase }
TParabolicReflectorDishFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TParabolicReflectorDishExampleTestCase }
TParabolicReflectorDishExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TParabolicReflectorDishFullDataTestCase }
function TParabolicReflectorDishFullDataTestCase.CreateSolver: ISolver;
begin
Result := TParabolicReflectorDish.Create;
end;
procedure TParabolicReflectorDishFullDataTestCase.TestPart1;
begin
AssertEquals(103614, FSolver.GetResultPart1);
end;
procedure TParabolicReflectorDishFullDataTestCase.TestPart2;
begin
AssertEquals(83790, FSolver.GetResultPart2);
end;
{ TParabolicReflectorDishExampleTestCase }
function TParabolicReflectorDishExampleTestCase.CreateSolver: ISolver;
@ -84,7 +57,6 @@ end;
initialization
RegisterTest('TParabolicReflectorDish', TParabolicReflectorDishFullDataTestCase);
RegisterTest('TParabolicReflectorDish', TParabolicReflectorDishExampleTestCase);
end.

28
tests/UPipeMazeTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TPipeMazeFullDataTestCase }
TPipeMazeFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TPipeMazeExampleTestCase }
TPipeMazeExampleTestCase = class(TExampleEngineBaseTest)
@ -152,23 +142,6 @@ type
implementation
{ TPipeMazeFullDataTestCase }
function TPipeMazeFullDataTestCase.CreateSolver: ISolver;
begin
Result := TPipeMaze.Create;
end;
procedure TPipeMazeFullDataTestCase.TestPart1;
begin
AssertEquals(7097, FSolver.GetResultPart1);
end;
procedure TPipeMazeFullDataTestCase.TestPart2;
begin
AssertEquals(355, FSolver.GetResultPart2);
end;
{ TPipeMazeExampleTestCase }
function TPipeMazeExampleTestCase.CreateSolver: ISolver;
@ -316,7 +289,6 @@ end;
initialization
RegisterTest('TPipeMaze', TPipeMazeFullDataTestCase);
RegisterTest('TPipeMaze', TPipeMazeExampleTestCase);
RegisterTest('TPipeMaze', TPipeMazeExample2TestCase);
RegisterTest('TPipeMaze', TPipeMazeExample3TestCase);

28
tests/UPointOfIncidenceTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TPointOfIncidenceFullDataTestCase }
TPointOfIncidenceFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TPointOfIncidenceExampleTestCase }
TPointOfIncidenceExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TPointOfIncidenceFullDataTestCase }
function TPointOfIncidenceFullDataTestCase.CreateSolver: ISolver;
begin
Result := TPointOfIncidence.Create;
end;
procedure TPointOfIncidenceFullDataTestCase.TestPart1;
begin
AssertEquals(37718, FSolver.GetResultPart1);
end;
procedure TPointOfIncidenceFullDataTestCase.TestPart2;
begin
AssertEquals(40995, FSolver.GetResultPart2);
end;
{ TPointOfIncidenceExampleTestCase }
function TPointOfIncidenceExampleTestCase.CreateSolver: ISolver;
@ -84,7 +57,6 @@ end;
initialization
RegisterTest('TPointOfIncidence', TPointOfIncidenceFullDataTestCase);
RegisterTest('TPointOfIncidence', TPointOfIncidenceExampleTestCase);
end.

22
tests/UPulsePropagationTestCases.pas
View File

@ -26,15 +26,6 @@ uses
type
{ TPulsePropagationFullDataTestCase }
TPulsePropagationFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
end;
{ TPulsePropagationExampleTestCase }
TPulsePropagationExampleTestCase = class(TExampleEngineBaseTest)
@ -61,18 +52,6 @@ type
implementation
{ TPulsePropagationFullDataTestCase }
function TPulsePropagationFullDataTestCase.CreateSolver: ISolver;
begin
Result := TPulsePropagation.Create;
end;
procedure TPulsePropagationFullDataTestCase.TestPart1;
begin
AssertEquals(949764474, FSolver.GetResultPart1);
end;
{ TPulsePropagationExampleTestCase }
function TPulsePropagationExampleTestCase.CreateSolver: ISolver;
@ -106,7 +85,6 @@ end;
initialization
RegisterTest('TPulsePropagation', TPulsePropagationFullDataTestCase);
RegisterTest('TPulsePropagation', TPulsePropagationExampleTestCase);
RegisterTest('TPulsePropagation', TPulsePropagationExample2TestCase);
end.

28
tests/USandSlabsTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TSandSlabsFullDataTestCase }
TSandSlabsFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TSandSlabsExampleTestCase }
TSandSlabsExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TSandSlabsFullDataTestCase }
function TSandSlabsFullDataTestCase.CreateSolver: ISolver;
begin
Result := TSandSlabs.Create;
end;
procedure TSandSlabsFullDataTestCase.TestPart1;
begin
AssertEquals(389, FSolver.GetResultPart1);
end;
procedure TSandSlabsFullDataTestCase.TestPart2;
begin
AssertEquals(70609, FSolver.GetResultPart2);
end;
{ TSandSlabsExampleTestCase }
function TSandSlabsExampleTestCase.CreateSolver: ISolver;
@ -84,7 +57,6 @@ end;
initialization
RegisterTest('TSandSlabs', TSandSlabsFullDataTestCase);
RegisterTest('TSandSlabs', TSandSlabsExampleTestCase);
end.

28
tests/UScratchcardsTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TScratchcardsFullDataTestCase }
TScratchcardsFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TScratchcardsExampleTestCase }
TScratchcardsExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TScratchcardsFullDataTestCase }
function TScratchcardsFullDataTestCase.CreateSolver: ISolver;
begin
Result := TScratchcards.Create;
end;
procedure TScratchcardsFullDataTestCase.TestPart1;
begin
AssertEquals(21821, FSolver.GetResultPart1);
end;
procedure TScratchcardsFullDataTestCase.TestPart2;
begin
AssertEquals(5539496, FSolver.GetResultPart2);
end;
{ TScratchcardsExampleTestCase }
function TScratchcardsExampleTestCase.CreateSolver: ISolver;
@ -84,6 +57,5 @@ end;
initialization
RegisterTest('TScratchcards', TScratchcardsFullDataTestCase);
RegisterTest('TScratchcards', TScratchcardsExampleTestCase);
end.

22
tests/USnowverloadTestCases.pas
View File

@ -26,15 +26,6 @@ uses
type
{ TSnowverloadFullDataTestCase }
TSnowverloadFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
end;
{ TSnowverloadExampleTestCase }
TSnowverloadExampleTestCase = class(TExampleEngineBaseTest)
@ -46,18 +37,6 @@ type
implementation
{ TSnowverloadFullDataTestCase }
function TSnowverloadFullDataTestCase.CreateSolver: ISolver;
begin
Result := TSnowverload.Create;
end;
procedure TSnowverloadFullDataTestCase.TestPart1;
begin
AssertEquals(552695, FSolver.GetResultPart1);
end;
{ TSnowverloadExampleTestCase }
function TSnowverloadExampleTestCase.CreateSolver: ISolver;
@ -72,7 +51,6 @@ end;
initialization
RegisterTest('TSnowverload', TSnowverloadFullDataTestCase);
RegisterTest('TSnowverload', TSnowverloadExampleTestCase);
end.

22
tests/UStepCounterTestCases.pas
View File

@ -26,15 +26,6 @@ uses
type
{ TStepCounterFullDataTestCase }
TStepCounterFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
end;
{ TStepCounterMax6ExampleTestCase }
TStepCounterMax6ExampleTestCase = class(TExampleEngineBaseTest)
@ -46,18 +37,6 @@ type
implementation
{ TStepCounterFullDataTestCase }
function TStepCounterFullDataTestCase.CreateSolver: ISolver;
begin
Result := TStepCounter.Create;
end;
procedure TStepCounterFullDataTestCase.TestPart1;
begin
AssertEquals(3809, FSolver.GetResultPart1);
end;
{ TStepCounterMax6ExampleTestCase }
function TStepCounterMax6ExampleTestCase.CreateSolver: ISolver;
@ -72,7 +51,6 @@ end;
initialization
RegisterTest('TStepCounter', TStepCounterFullDataTestCase);
RegisterTest('TStepCounter', TStepCounterMax6ExampleTestCase);
end.

28
tests/UTrebuchetTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TTrebuchetFullDataTestCase }
TTrebuchetFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TTrebuchetExampleTestCase }
TTrebuchetExampleTestCase = class(TExampleEngineBaseTest)
@ -62,23 +52,6 @@ type
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;
@ -112,7 +85,6 @@ end;
initialization
RegisterTest('TTrebuchet', TTrebuchetFullDataTestCase);
RegisterTest('TTrebuchet', TTrebuchetExampleTestCase);
RegisterTest('TTrebuchet', TTrebuchetExample2TestCase);
end.

28
tests/UWaitForItTestCases.pas
View File

@ -26,16 +26,6 @@ uses
type
{ TWaitForItFullDataTestCase }
TWaitForItFullDataTestCase = class(TEngineBaseTest)
protected
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TWaitForItExampleTestCase }
TWaitForItExampleTestCase = class(TExampleEngineBaseTest)
@ -48,23 +38,6 @@ type
implementation
{ TWaitForItFullDataTestCase }
function TWaitForItFullDataTestCase.CreateSolver: ISolver;
begin
Result := TWaitForIt.Create;
end;
procedure TWaitForItFullDataTestCase.TestPart1;
begin
AssertEquals(4811940, FSolver.GetResultPart1);
end;
procedure TWaitForItFullDataTestCase.TestPart2;
begin
AssertEquals(30077773, FSolver.GetResultPart2);
end;
{ TWaitForItExampleTestCase }
function TWaitForItExampleTestCase.CreateSolver: ISolver;
@ -84,6 +57,5 @@ end;
initialization
RegisterTest('TWaitForIt', TWaitForItFullDataTestCase);
RegisterTest('TWaitForIt', TWaitForItExampleTestCase);
end.