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

fpspreadsheet: allow margin for error testing writing reading date/time. Test failures from 29 to 6

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3334 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-07-19 09:53:48 +00:00
parent 49aa26354e
commit 752b1c95e7
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -370,12 +370,15 @@ end;
procedure TSpreadReadDateTests.TestReadDate(FileName: string; Row: integer);
var
ActualDateTime: TDateTime;
ErrorMargin: TDateTime; //margin for error in comparison test
begin
ErrorMargin:=0.000000000000001;
if Row>High(SollDates) then
fail('Error in test code: array bounds overflow. Check array size is correct.');
// Load the file only if is the file name changes.
if TestFileName <> FileName then begin
if TestFileName <> FileName then
begin
if TestWorkbook <> nil then
TestWorkbook.Free;
@ -389,7 +392,7 @@ begin
end;
TestWorksheet := GetWorksheetByName(TestWorkBook, DatesSheet);
if TestWorksheet=nil then
fail('Error in test code. Failed to get named worksheet');
fail('Error in test code. Failed to get named worksheet '+DatesSheet);
TestFileName := FileName;
end;
@ -402,7 +405,7 @@ begin
if not(TestWorkSheet.ReadAsDateTime(Row, 0, ActualDateTime)) then
Fail('Could not read date time value for cell '+CellNotation(TestWorkSheet,Row));
CheckEquals(SollDates[Row],ActualDateTime,'Test date/time value mismatch, '
CheckEquals(SollDates[Row],ActualDateTime,ErrorMargin,'Test date/time value mismatch, '
+'cell '+CellNotation(TestWorksheet,Row));
// Don't free the workbook here - it will be reused. It is destroyed at finalization.