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