Added solution for "Day 17: Clumsy Crucible", part 1

tests/UClumsyCrucibleTestCases.pas

@@ -1,6 +1,6 @@
 {
   Solutions to the Advent Of Code.
-  Copyright (C) 2023  Stefan Müller
+  Copyright (C) 2023-2024  Stefan Müller
 
   This program is free software: you can redistribute it and/or modify it under
   the terms of the GNU General Public License as published by the Free Software
@@ -26,16 +26,6 @@ uses
 
 type
 
-  { TClumsyCrucibleFullDataTestCase }
-
-  TClumsyCrucibleFullDataTestCase = class(TEngineBaseTest)
-  protected
-    function CreateSolver: ISolver; override;
-  published
-    procedure TestPart1;
-    procedure TestPart2;
-  end;
-
   { TClumsyCrucibleExampleTestCase }
 
   TClumsyCrucibleExampleTestCase = class(TExampleEngineBaseTest)
@@ -43,28 +33,10 @@ type
     function CreateSolver: ISolver; override;
   published
     procedure TestPart1;
-    procedure TestPart2;
   end;
 
 implementation
 
-{ TClumsyCrucibleFullDataTestCase }
-
-function TClumsyCrucibleFullDataTestCase.CreateSolver: ISolver;
-begin
-  Result := TClumsyCrucible.Create;
-end;
-
-procedure TClumsyCrucibleFullDataTestCase.TestPart1;
-begin
-  AssertEquals(-1, FSolver.GetResultPart1);
-end;
-
-procedure TClumsyCrucibleFullDataTestCase.TestPart2;
-begin
-  AssertEquals(-1, FSolver.GetResultPart2);
-end;
-
 { TClumsyCrucibleExampleTestCase }
 
 function TClumsyCrucibleExampleTestCase.CreateSolver: ISolver;
@@ -77,14 +49,8 @@ begin
   AssertEquals(102, FSolver.GetResultPart1);
 end;
 
-procedure TClumsyCrucibleExampleTestCase.TestPart2;
-begin
-  AssertEquals(-1, FSolver.GetResultPart2);
-end;
-
 initialization
 
-  //RegisterTest(TClumsyCrucibleFullDataTestCase);
-  //RegisterTest(TClumsyCrucibleExampleTestCase);
+  RegisterTest('TClumsyCrucible', TClumsyCrucibleExampleTestCase);
 end.