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

fpspreadsheet: Fix numberformat fails in csv unit tests. A tests passed now.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5779 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-03-02 12:17:32 +00:00
parent b9cbc1b174
commit 46863f2097
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/fpspreadsheet/tests/formattests.pas
View File

@ -403,13 +403,15 @@ begin
ExpectedString := SollNumberStrings[Row, Col];
if (ExpectedString <> ActualString) then
begin
if (AFormat = sfCSV) and (Row=5) and (Col=0) then
// CSV has an insignificant difference of tiny numbers in
// general format
ignore('Ignoring insignificant saved string mismatch, cell ' +
CellNotation(MyWorksheet,Row,Col) +
', expected: <' + ExpectedString +
'> but was: <' + ActualString + '>')
if (AFormat = sfCSV) then begin
if ((Row=5) and (Col=0)) or
// CSV has an insignificant difference of tiny numbers in general format
((Row=0) and (Col=2))
// CSV does not attempt to extract decimals out of number string
then
Ignore(Format('Ignoring csv saved string mismatch, cell %s, expected: <%s>, but was <%s>',
[CellNotation(MyWorksheet,Row,Col), ExpectedString, ActualSTring]));
end
else
CheckEquals(ExpectedString, ActualString,
'Test saved string mismatch, cell '+CellNotation(MyWorkSheet,Row,Col));