diff --git a/tests/UClumsyCrucibleTestCases.pas b/tests/UClumsyCrucibleTestCases.pas
index faeafe1..96da098 100644
--- a/tests/UClumsyCrucibleTestCases.pas
+++ b/tests/UClumsyCrucibleTestCases.pas
@@ -84,7 +84,7 @@ end;
 
 initialization
 
-  RegisterTest(TClumsyCrucibleFullDataTestCase);
-  RegisterTest(TClumsyCrucibleExampleTestCase);
+  //RegisterTest(TClumsyCrucibleFullDataTestCase);
+  //RegisterTest(TClumsyCrucibleExampleTestCase);
 end.
 
diff --git a/tests/ULavaductLagoonTestCases.pas b/tests/ULavaductLagoonTestCases.pas
index 4f074d5..9270f7c 100644
--- a/tests/ULavaductLagoonTestCases.pas
+++ b/tests/ULavaductLagoonTestCases.pas
@@ -84,7 +84,7 @@ end;
 
 initialization
 
-  RegisterTest(TLavaductLagoonFullDataTestCase);
-  RegisterTest(TLavaductLagoonExampleTestCase);
+  //RegisterTest(TLavaductLagoonFullDataTestCase);
+  //RegisterTest(TLavaductLagoonExampleTestCase);
 end.
 
diff --git a/tests/UPulsePropagationTestCases.pas b/tests/UPulsePropagationTestCases.pas
index c5e4503..7c0dd08 100644
--- a/tests/UPulsePropagationTestCases.pas
+++ b/tests/UPulsePropagationTestCases.pas
@@ -33,7 +33,6 @@ type
     function CreateSolver: ISolver; override;
   published
     procedure TestPart1;
-    procedure TestPart2;
   end;
 
   { TPulsePropagationExampleTestCase }
@@ -74,11 +73,6 @@ begin
   AssertEquals(949764474, FSolver.GetResultPart1);
 end;
 
-procedure TPulsePropagationFullDataTestCase.TestPart2;
-begin
-  AssertEquals(-1, FSolver.GetResultPart2);
-end;
-
 { TPulsePropagationExampleTestCase }
 
 function TPulsePropagationExampleTestCase.CreateSolver: ISolver;