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

fpspreadsheet: Additional IF test.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6641 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-09-10 22:13:33 +00:00
parent 920fae9fe0
commit 1b83ede288
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/fpspreadsheet/tests/singleformulatests.pas
View File

@ -87,6 +87,8 @@ type
procedure IfConst_OOXML; procedure IfConst_OOXML;
procedure IfConst_ODS; procedure IfConst_ODS;
procedure IfConst_BIFF8_2;
procedure CountIfRange_BIFF8; procedure CountIfRange_BIFF8;
procedure CountIfRangeSheet_BIFF8; procedure CountIfRangeSheet_BIFF8;
@ -168,7 +170,7 @@ const
SHEET1 = 'Sheet1'; SHEET1 = 'Sheet1';
SHEET2 = 'Sheet2'; SHEET2 = 'Sheet2';
SHEET3 = 'Sheet3'; SHEET3 = 'Sheet3';
TESTCELL_ROW = 1; TESTCELL_ROW = 1; // Cell with formula: C2
TESTCELL_COL = 2; TESTCELL_COL = 2;
var var
worksheet: TsWorksheet; worksheet: TsWorksheet;
@ -521,17 +523,24 @@ end;
procedure TSpreadSingleFormulaTests.IfConst_BIFF8; procedure TSpreadSingleFormulaTests.IfConst_BIFF8;
begin begin
TestFormula('IF(C3="A","is A","not A")', 'is A', ftkConstants, sfExcel8); TestFormula('IF(C3="A","is A","not A")', 'not A', ftkConstants, sfExcel8);
end; end;
procedure TSpreadSingleFormulaTests.IfConst_OOXML; procedure TSpreadSingleFormulaTests.IfConst_OOXML;
begin begin
TestFormula('IF(C3="A","is A","not A")', 'is A', ftkConstants, sfOOXML); TestFormula('IF(C3="A","is A","not A")', 'not A', ftkConstants, sfOOXML);
end; end;
procedure TSpreadSingleFormulaTests.IfConst_ODS; procedure TSpreadSingleFormulaTests.IfConst_ODS;
begin begin
TestFormula('IF(C3="A","is A","not A")', 'is A', ftkConstants, sfOpenDocument); TestFormula('IF(C3="A","is A","not A")', 'not A', ftkConstants, sfOpenDocument);
end;
{ --- }
procedure TSpreadSingleFormulaTests.IfConst_BIFF8_2;
begin
TestFormula('IF(C3=1,"equal","different")', 'equal', ftkConstants, sfExcel8);
end; end;
{ --- } { --- }