From f66e3fc2d841df160cf59ece56de91cc9841f4c2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Stefan=20M=C3=BCller?= Date: Mon, 17 Jun 2024 14:00:22 +0200 Subject: [PATCH] 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. --- tests/UAplentyTestCases.pas | 28 ---------------------- tests/UCamelCardsTestCases.pas | 28 ---------------------- tests/UCosmicExpansionTestCases.pas | 28 ---------------------- tests/UCubeConundrumTestCases.pas | 28 ---------------------- tests/UFloorWillBeLavaTestCases.pas | 28 ---------------------- tests/UGearRatiosTestCases.pas | 28 ---------------------- tests/UGiveSeedFertilizerTestCases.pas | 28 ---------------------- tests/UHauntedWastelandTestCases.pas | 28 ---------------------- tests/UHotSpringsTestCases.pas | 22 ----------------- tests/ULavaductLagoonTestCases.pas | 28 ---------------------- tests/ULensLibraryTestCases.pas | 28 ---------------------- tests/ULongWalkTestCases.pas | 22 ----------------- tests/UMirageMaintenanceTestCases.pas | 28 ---------------------- tests/UNeverTellMeTheOddsTestCases.pas | 28 ---------------------- tests/UParabolicReflectorDishTestCases.pas | 28 ---------------------- tests/UPipeMazeTestCases.pas | 28 ---------------------- tests/UPointOfIncidenceTestCases.pas | 28 ---------------------- tests/UPulsePropagationTestCases.pas | 22 ----------------- tests/USandSlabsTestCases.pas | 28 ---------------------- tests/UScratchcardsTestCases.pas | 28 ---------------------- tests/USnowverloadTestCases.pas | 22 ----------------- tests/UStepCounterTestCases.pas | 22 ----------------- tests/UTrebuchetTestCases.pas | 28 ---------------------- tests/UWaitForItTestCases.pas | 28 ---------------------- 24 files changed, 642 deletions(-) diff --git a/tests/UAplentyTestCases.pas b/tests/UAplentyTestCases.pas index bccdce1..b8259a7 100644 --- a/tests/UAplentyTestCases.pas +++ b/tests/UAplentyTestCases.pas @@ -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. diff --git a/tests/UCamelCardsTestCases.pas b/tests/UCamelCardsTestCases.pas index 1da92b6..9663646 100644 --- a/tests/UCamelCardsTestCases.pas +++ b/tests/UCamelCardsTestCases.pas @@ -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. diff --git a/tests/UCosmicExpansionTestCases.pas b/tests/UCosmicExpansionTestCases.pas index ca1a7aa..6ed269f 100644 --- a/tests/UCosmicExpansionTestCases.pas +++ b/tests/UCosmicExpansionTestCases.pas @@ -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); diff --git a/tests/UCubeConundrumTestCases.pas b/tests/UCubeConundrumTestCases.pas index 6c42216..daf8a23 100644 --- a/tests/UCubeConundrumTestCases.pas +++ b/tests/UCubeConundrumTestCases.pas @@ -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. diff --git a/tests/UFloorWillBeLavaTestCases.pas b/tests/UFloorWillBeLavaTestCases.pas index d0491b7..dad69a9 100644 --- a/tests/UFloorWillBeLavaTestCases.pas +++ b/tests/UFloorWillBeLavaTestCases.pas @@ -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. diff --git a/tests/UGearRatiosTestCases.pas b/tests/UGearRatiosTestCases.pas index ed91b11..5a1eb19 100644 --- a/tests/UGearRatiosTestCases.pas +++ b/tests/UGearRatiosTestCases.pas @@ -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. diff --git a/tests/UGiveSeedFertilizerTestCases.pas b/tests/UGiveSeedFertilizerTestCases.pas index 2a58e37..c7cc89d 100644 --- a/tests/UGiveSeedFertilizerTestCases.pas +++ b/tests/UGiveSeedFertilizerTestCases.pas @@ -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. diff --git a/tests/UHauntedWastelandTestCases.pas b/tests/UHauntedWastelandTestCases.pas index 2f22890..1ef1552 100644 --- a/tests/UHauntedWastelandTestCases.pas +++ b/tests/UHauntedWastelandTestCases.pas @@ -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); diff --git a/tests/UHotSpringsTestCases.pas b/tests/UHotSpringsTestCases.pas index ddccd39..03f9a92 100644 --- a/tests/UHotSpringsTestCases.pas +++ b/tests/UHotSpringsTestCases.pas @@ -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. diff --git a/tests/ULavaductLagoonTestCases.pas b/tests/ULavaductLagoonTestCases.pas index 7701d8c..8008ccd 100644 --- a/tests/ULavaductLagoonTestCases.pas +++ b/tests/ULavaductLagoonTestCases.pas @@ -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. diff --git a/tests/ULensLibraryTestCases.pas b/tests/ULensLibraryTestCases.pas index 46e7d37..3e0cac6 100644 --- a/tests/ULensLibraryTestCases.pas +++ b/tests/ULensLibraryTestCases.pas @@ -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. diff --git a/tests/ULongWalkTestCases.pas b/tests/ULongWalkTestCases.pas index e84c477..b90cbb8 100644 --- a/tests/ULongWalkTestCases.pas +++ b/tests/ULongWalkTestCases.pas @@ -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. diff --git a/tests/UMirageMaintenanceTestCases.pas b/tests/UMirageMaintenanceTestCases.pas index 49bf838..efdd596 100644 --- a/tests/UMirageMaintenanceTestCases.pas +++ b/tests/UMirageMaintenanceTestCases.pas @@ -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. diff --git a/tests/UNeverTellMeTheOddsTestCases.pas b/tests/UNeverTellMeTheOddsTestCases.pas index f1d0d07..c436ee6 100644 --- a/tests/UNeverTellMeTheOddsTestCases.pas +++ b/tests/UNeverTellMeTheOddsTestCases.pas @@ -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. diff --git a/tests/UParabolicReflectorDishTestCases.pas b/tests/UParabolicReflectorDishTestCases.pas index 27759ba..6d010d7 100644 --- a/tests/UParabolicReflectorDishTestCases.pas +++ b/tests/UParabolicReflectorDishTestCases.pas @@ -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. diff --git a/tests/UPipeMazeTestCases.pas b/tests/UPipeMazeTestCases.pas index 0f00ba6..6eda46b 100644 --- a/tests/UPipeMazeTestCases.pas +++ b/tests/UPipeMazeTestCases.pas @@ -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); diff --git a/tests/UPointOfIncidenceTestCases.pas b/tests/UPointOfIncidenceTestCases.pas index 8a9a328..1af2202 100644 --- a/tests/UPointOfIncidenceTestCases.pas +++ b/tests/UPointOfIncidenceTestCases.pas @@ -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. diff --git a/tests/UPulsePropagationTestCases.pas b/tests/UPulsePropagationTestCases.pas index eefb9ff..6994c50 100644 --- a/tests/UPulsePropagationTestCases.pas +++ b/tests/UPulsePropagationTestCases.pas @@ -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. diff --git a/tests/USandSlabsTestCases.pas b/tests/USandSlabsTestCases.pas index 62dbca3..4c3d6e6 100644 --- a/tests/USandSlabsTestCases.pas +++ b/tests/USandSlabsTestCases.pas @@ -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. diff --git a/tests/UScratchcardsTestCases.pas b/tests/UScratchcardsTestCases.pas index a1930fd..222156a 100644 --- a/tests/UScratchcardsTestCases.pas +++ b/tests/UScratchcardsTestCases.pas @@ -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. diff --git a/tests/USnowverloadTestCases.pas b/tests/USnowverloadTestCases.pas index 35d374b..f14c6cf 100644 --- a/tests/USnowverloadTestCases.pas +++ b/tests/USnowverloadTestCases.pas @@ -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. diff --git a/tests/UStepCounterTestCases.pas b/tests/UStepCounterTestCases.pas index 33a1db7..4acdf8b 100644 --- a/tests/UStepCounterTestCases.pas +++ b/tests/UStepCounterTestCases.pas @@ -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. diff --git a/tests/UTrebuchetTestCases.pas b/tests/UTrebuchetTestCases.pas index f132909..f171f1a 100644 --- a/tests/UTrebuchetTestCases.pas +++ b/tests/UTrebuchetTestCases.pas @@ -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. diff --git a/tests/UWaitForItTestCases.pas b/tests/UWaitForItTestCases.pas index 465863e..0e5c05f 100644 --- a/tests/UWaitForItTestCases.pas +++ b/tests/UWaitForItTestCases.pas @@ -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.