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

fpspreadsheet: Relax error margin for date/time tests to 10 nsec in order to get success in tests back.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3335 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-07-19 10:45:17 +00:00
parent 752b1c95e7
commit 18ae11e3e8
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -372,7 +372,8 @@ var
ActualDateTime: TDateTime; ActualDateTime: TDateTime;
ErrorMargin: TDateTime; //margin for error in comparison test ErrorMargin: TDateTime; //margin for error in comparison test
begin begin
ErrorMargin:=0.000000000000001; //ErrorMargin:=0.000000000000001; // = 1E-15 = 9E-11 sec
ErrorMargin := 1E-5/(24*60*60*1000); // = 10 nsec = 1E-8 sec // 1 ns fails
if Row>High(SollDates) then if Row>High(SollDates) then
fail('Error in test code: array bounds overflow. Check array size is correct.'); fail('Error in test code: array bounds overflow. Check array size is correct.');

1
components/fpspreadsheet/tests/spreadtestgui.lpi
View File

@@ -80,6 +80,7 @@
<Unit1> <Unit1>
<Filename Value="datetests.pas"/> <Filename Value="datetests.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="datetests"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="stringtests.pas"/> <Filename Value="stringtests.pas"/>