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

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

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

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

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