From 86a42c6c020f9337c76f602e73365cb32d5a01e2 Mon Sep 17 00:00:00 2001
From: bigchimp <bigchimp@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 27 Dec 2013 13:55:56 +0000
Subject: [PATCH] * Tests: cosmetic/slight tightening file exist test

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2870 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/tests/internaltests.pas | 3 +++
 components/fpspreadsheet/tests/spreadtestcli.lpr | 2 --
 components/fpspreadsheet/tests/testsutility.pas  | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

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+}