diff --git a/components/fpspreadsheet/tests/internaltests.pas b/components/fpspreadsheet/tests/internaltests.pas
index ef54a5b41..747c8a912 100644
--- a/components/fpspreadsheet/tests/internaltests.pas
+++ b/components/fpspreadsheet/tests/internaltests.pas
@@ -106,6 +106,9 @@ begin
   finally
     MyWorkbook.Free;
   end;
+
+  if not(FileExists(TempFile)) then
+    fail('Trying to write first file did not work.');
   FirstFileHash:=MD5Print(MD5File(TempFile));
 
   // Now overwrite with second file
diff --git a/components/fpspreadsheet/tests/spreadtestcli.lpr b/components/fpspreadsheet/tests/spreadtestcli.lpr
index 6ba2e93f8..e3221f766 100644
--- a/components/fpspreadsheet/tests/spreadtestcli.lpr
+++ b/components/fpspreadsheet/tests/spreadtestcli.lpr
@@ -166,8 +166,6 @@ begin
 end;
 
 procedure TTestRunner.DoRun;
-const
-  RepeatInterval=10;
 var
   FoundTest: boolean;
   I : Integer;
diff --git a/components/fpspreadsheet/tests/testsutility.pas b/components/fpspreadsheet/tests/testsutility.pas
index 4eb06c3c9..4c95376cb 100644
--- a/components/fpspreadsheet/tests/testsutility.pas
+++ b/components/fpspreadsheet/tests/testsutility.pas
@@ -1,6 +1,6 @@
 unit testsutility;
 
-{ Utility unit with general functions for fpspreadsheet tests,
+{ Utility unit with general functions for the real fpspreadsheet test units,
   e.g. getting temporary files }
 
 {$mode objfpc}{$H+}