Removed full data test cases

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

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.

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.

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);

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.

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.

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.

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.

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);

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.

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.

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.

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.

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.

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.

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.

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);

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.

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.

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.

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.

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.

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.

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.

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.