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

fpspreadsheet: Another exotic formula test case: multiple application of % operator.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4187 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-06-08 17:11:46 +00:00
parent e121751361
commit 773295ba3e
2 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpspreadsheet/tests/formulatests.pas
View File

@ -138,7 +138,6 @@ begin
// Write out all test formulas // Write out all test formulas
// All formulas are in column B // All formulas are in column B
{$I testcases_calcrpnformula.inc} {$I testcases_calcrpnformula.inc}
// WriteRPNFormulaSamples(MyWorksheet, AFormat, true, UseRPNFormula);
MyWorkBook.WriteToFile(TempFile, AFormat, true); MyWorkBook.WriteToFile(TempFile, AFormat, true);
finally finally
MyWorkbook.Free; MyWorkbook.Free;

14
components/fpspreadsheet/tests/testcases_calcrpnformula.inc
View File

@ -270,6 +270,20 @@
SetLength(sollValues, Row+1); SetLength(sollValues, Row+1);
sollValues[Row] := FloatResult(cellB1*0.01); sollValues[Row] := FloatResult(cellB1*0.01);
// Exotic test case from OpenOffice test file
inc(Row);
formula := '200%%';
MyWorksheet.WriteUTF8Text(Row, 0, formula);
if UseRPNFormula then
MyWorksheet.WriteRPNFormula(Row, 1, CreateRPNFormula(
RPNNumber(200,
RPNFunc(fekPercent,
RPNFunc(fekPercent, nil)))))
else
MyWorksheet.WriteFormula(row, 1, formula);
SetLength(sollvalues, Row+1);
sollValues[Row] := FloatResult(0.02);
// Power symbol // Power symbol
inc(Row); inc(Row);
formula := '2^0.5'; formula := '2^0.5';