pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Tests: cosmetic/slight tightening file exist test

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2870 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2013-12-27 13:55:56 +00:00
parent 449252cbe6
commit 86a42c6c02
3 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/tests/internaltests.pas
View File

@ -106,6 +106,9 @@ begin
finally finally
MyWorkbook.Free; MyWorkbook.Free;
end; end;
if not(FileExists(TempFile)) then
fail('Trying to write first file did not work.');
FirstFileHash:=MD5Print(MD5File(TempFile)); FirstFileHash:=MD5Print(MD5File(TempFile));
// Now overwrite with second file // Now overwrite with second file

2
components/fpspreadsheet/tests/spreadtestcli.lpr
View File

@ -166,8 +166,6 @@ begin
end; end;
procedure TTestRunner.DoRun; procedure TTestRunner.DoRun;
const
RepeatInterval=10;
var var
FoundTest: boolean; FoundTest: boolean;
I : Integer; I : Integer;

2
components/fpspreadsheet/tests/testsutility.pas
View File

@ -1,6 +1,6 @@
unit testsutility; 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 } e.g. getting temporary files }
{$mode objfpc}{$H+} {$mode objfpc}{$H+}