Added solution for "Day 15: Lens Library", part 2

tests/ULensLibraryTestCases.pas

@@ -33,6 +33,7 @@ type
     function CreateSolver: ISolver; override;
   published
     procedure TestPart1;
+    procedure TestPart2;
   end;
 
   { TLensLibraryExampleTestCase }
@@ -42,6 +43,7 @@ type
     function CreateSolver: ISolver; override;
   published
     procedure TestPart1;
+    procedure TestPart2;
   end;
 
 implementation
@@ -58,6 +60,11 @@ begin
   AssertEquals(519041, FSolver.GetResultPart1);
 end;
 
+procedure TLensLibraryFullDataTestCase.TestPart2;
+begin
+  AssertEquals(260530, FSolver.GetResultPart2);
+end;
+
 { TLensLibraryExampleTestCase }
 
 function TLensLibraryExampleTestCase.CreateSolver: ISolver;
@@ -70,6 +77,11 @@ begin
   AssertEquals(1320, FSolver.GetResultPart1);
 end;
 
+procedure TLensLibraryExampleTestCase.TestPart2;
+begin
+  AssertEquals(145, FSolver.GetResultPart2);
+end;
+
 initialization
 
   RegisterTest(TLensLibraryFullDataTestCase);