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:
parent
8eb76329c1
commit
f66e3fc2d8
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Reference in New Issue