Added solution for "Day 18: Lavaduct Lagoon", part 1

tests/ULavaductLagoonTestCases.pas

@@ -33,7 +33,7 @@ type
     function CreateSolver: ISolver; override;
   published
     procedure TestPart1;
-    procedure TestPart2;
+    //procedure TestPart2;
   end;
 
 implementation
@@ -50,13 +50,13 @@ begin
   AssertEquals(62, FSolver.GetResultPart1);
 end;
 
-procedure TLavaductLagoonExampleTestCase.TestPart2;
-begin
-  AssertEquals(-1, FSolver.GetResultPart2);
-end;
+//procedure TLavaductLagoonExampleTestCase.TestPart2;
+//begin
+//  AssertEquals(-1, FSolver.GetResultPart2);
+//end;
 
 initialization
 
-  //RegisterTest('TLavaductLagoon', TLavaductLagoonExampleTestCase);
+  RegisterTest('TLavaductLagoon', TLavaductLagoonExampleTestCase);
 end.