paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
b51c5a33ed
lazarus-ccr/components/fpspreadsheet/unit-tests/common/testcases_calclogicalformulas.inc
wp_xxyyzz 5095b475b2 FPSpreadsheet: Restructure unit tests in calcformulatests.pas 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9648 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2025-02-25 16:40:57 +00:00

196 lines
8.2 KiB
PHP
Raw Blame History

{ included by CalcFormulaTests.pas }
procedure TCalcLogicalFormulaTests.Test_AND;
var
cell: PCell;
begin
cell := FWorksheet.WriteFormula(0, 1, 'AND(1=1,2=2)');
FWorksheet.CalcFormulas;
CheckEquals(true, FWorksheet.IsTrueValue(cell), 'Formula #1 AND(1=1,2=2) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND(1=2,2=2)');
FWorksheet.CalcFormulas;
CheckEquals(false, FWorksheet.IsTrueValue(cell), 'Formula #2 AND(1=2,2=2) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND(1=1,2=1)');
FWorksheet.CalcFormulas;
CheckEquals(false, FWorksheet.IsTrueValue(cell), 'Formula #3 AND(1=1,2=1) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND(1=2,2=1)');
FWorksheet.CalcFormulas;
CheckEquals(false, FWorksheet.IsTrueValue(cell), 'Formula #4 AND(1=2,2=1) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND(1/0,2=2)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_DIVIDE_BY_ZERO, FWorksheet.ReadAsText(cell), 'Formula #5 AND(1/0,2=2) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND(1,TRUE)');
FWorksheet.CalcFormulas;
CheckEquals(true, FWorksheet.IsTrueValue(cell), 'Formula #6 AND(1,TRUE) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND(0,TRUE)');
FWorksheet.CalcFormulas;
CheckEquals(false, FWorksheet.IsTrueValue(cell), 'Formula #7 AND(0,TRUE) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND("0",TRUE)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_WRONG_TYPE, FWorksheet.ReadAsText(cell), 'Formula #8 AND("0",TRUE) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND("abc",TRUE)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_WRONG_TYPE, FWorksheet.ReadAsText(cell), 'Formula #9 AND("abc",TRUE) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND(1/0,0)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_DIVIDE_BY_ZERO, FWorksheet.ReadAsText(cell), 'Formula #10 AND(1/0,0) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'AND(#REF!,#DIV/0!)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_ILLEGAL_REF, FWorksheet.ReadAsText(cell), 'Formula #11 AND(#REF!,#DIV/0!) result mismatch');
end;
procedure TCalcLogicalFormulaTests.Test_IF;
begin
FWorksheet.WriteNumber(0, 0, 256.0);
// 3 arguments
FWorksheet.WriteFormula(0, 1, '=IF(A1>=100,"ok","not ok")');
FWorksheet.CalcFormulas;
CheckEquals('ok', FWorksheet.ReadAsText(0, 1), 'Formula #1 IF(A1>=100,"ok","not ok") result mismatch');
FWorksheet.WriteFormula(0, 1, '=IF(A1<100,"ok","not ok")');
FWorksheet.CalcFormulas;
CheckEquals('not ok', FWorksheet.ReadAsText(0, 1), 'Formula #2 IF(A1<100,"ok","not ok") result mismatch');
FWorksheet.WriteFormula(0, 1, '=IF(1,"ok","not ok")');
FWorksheet.CalcFormulas;
CheckEquals('ok', FWorksheet.ReadAsText(0, 1), 'Formula #3 IF(1,"ok","not ok") result mismatch');
FWorksheet.WriteFormula(0, 1, '=IF(0,"ok","not ok")');
FWorksheet.CalcFormulas;
CheckEquals('not ok', FWorksheet.ReadAsText(0, 1), 'Formula #4 IF(0,"ok","not ok") result mismatch');
FWorksheet.WriteFormula(0, 1, '=IF("1","ok","not ok")');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_WRONG_TYPE, FWorksheet.ReadAsText(0, 1), 'Formula #5 IF("1","ok","not ok") result mismatch');
// 2 arguments
FWorksheet.WriteFormula(0, 1, '=IF(A1>=100,"ok")');
FWorksheet.CalcFormulas;
CheckEquals('ok', FWorksheet.ReadAsText(0, 1), 'Formula #6 IF(A1>=100,"ok") result mismatch');
FWorksheet.WriteFormula(0, 1, '=IF(A1<100,"ok")');
FWorksheet.CalcFormulas;
CheckEquals('FALSE', FWorksheet.ReadAsText(0, 1), 'Formula #7 IF(A1<100,"ok") result mismatch');
// Error propagation: error in 3rd argument - result is non-error argument
FWorksheet.WriteFormula(0, 1, '=IF(A1>=100, "ok", 1/0)');
FWorksheet.CalcFormulas;
CheckEquals('ok', FWorksheet.ReadAsText(0, 1), 'Formula #8 IF(A1>=100,"ok",1/0) result mismatch');
// Error propagation: error in 3rd argument - result is error argument
FWorksheet.WriteFormula(0, 1, '=IF(A1<100, "ok", 1/0)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_DIVIDE_BY_ZERO, FWorksheet.ReadAsText(0, 1), 'Formula #9 IF(A1<100,"ok",1/0) result mismatch');
// Error propagation: error in 2nd argument - result is error argument
FWorksheet.WriteFormula(0, 1, '=IF(A1>=100, 1/0,"abc")');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_DIVIDE_BY_ZERO, FWorksheet.ReadAsText(0, 1), 'Formula #10 IF(A1>=100,1/0,"abc") result mismatch');
// Error propagation: error in 2nd argument - result is 3rd argument
FWorksheet.WriteFormula(0, 1, '=IF(A1<100, 1/0,"abc")');
FWorksheet.CalcFormulas;
CheckEquals('abc', FWorksheet.ReadAsText(0, 1), 'Formula #11 IF(A1<100,1/0,"abc") result mismatch');
// Error propagaton: error in 1st argument
FWorksheet.WriteFormula(0, 0, '=1/0');
FWorksheet.WriteFormula(0, 1, '=IF(A1>=100,"ok","not ok")');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_DIVIDE_BY_ZERO, FWorksheet.ReadAsText(0, 1), 'Formula #12 IF(A1>=100,"ok","not ok") with A1=1/0 result mismatch');
end;
procedure TCalcLogicalFormulaTests.Test_NOT;
var
cell: PCell;
begin
cell := FWorksheet.WriteFormula(0, 1, 'NOT(1=1)');
FWorksheet.CalcFormulas;
CheckEquals(false, FWorksheet.IsTrueValue(cell), 'Formula #1 NOT(1=1) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'NOT(1=2)');
FWorksheet.CalcFormulas;
CheckEquals(true, FWorksheet.IsTrueValue(cell), 'Formula #2 NOT(1=2) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'NOT(0)');
FWorksheet.CalcFormulas;
CheckEquals(true, FWorksheet.IsTrueValue(cell), 'Formula #3 NOT(0) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'NOT(1)');
FWorksheet.CalcFormulas;
CheckEquals(false, FWorksheet.IsTrueValue(cell), 'Formula #4 NOT(1) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'NOT(12)');
FWorksheet.CalcFormulas;
CheckEquals(false, FWorksheet.IsTrueValue(cell), 'Formula #5 NOT(12) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'NOT("0")');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_WRONG_TYPE, FWorksheet.ReadAsText(cell), 'Formula #6 NOT("0") result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'NOT("abc")');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_WRONG_TYPE, FWorksheet.ReadAsText(cell), 'Formula #7 NOT("abc") result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'NOT(1/0)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_DIVIDE_BY_ZERO, FWorksheet.ReadAsText(cell), 'Formula #8 NOT(1/0) result mismatch');
end;
procedure TCalcLogicalFormulaTests.Test_OR;
var
cell: PCell;
begin
cell := FWorksheet.WriteFormula(0, 1, 'OR(1=1,2=2)');
FWorksheet.CalcFormulas;
CheckEquals(true, FWorksheet.IsTrueValue(cell), 'Formula #1 OR(1=1,2=2) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'OR(1=2,2=2)');
FWorksheet.CalcFormulas;
CheckEquals(true, FWorksheet.IsTrueValue(cell), 'Formula #2 OR(1=2,2=2) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'OR(1=1,2=1)');
FWorksheet.CalcFormulas;
CheckEquals(true, FWorksheet.IsTrueValue(cell), 'Formula #3 OR(1=1,2=1) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'OR(1=2,2=1)');
FWorksheet.CalcFormulas;
CheckEquals(false, FWorksheet.IsTrueValue(cell), 'Formula #4 OR(1=2,2=1) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'OR(1/0,2=2)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_DIVIDE_BY_ZERO, FWorksheet.ReadAsText(cell), 'Formula #5 OR(1/0,2=2) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'OR(1,TRUE)');
FWorksheet.CalcFormulas;
CheckEquals(true, FWorksheet.IsTrueValue(cell), 'Formula #6 OR(1,TRUE) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'OR(0,FALSE)');
FWorksheet.CalcFormulas;
CheckEquals(false, FWorksheet.IsTrueValue(cell), 'Formula #7 OR(0,TRUE) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'OR("0",TRUE)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_WRONG_TYPE, FWorksheet.ReadAsText(cell), 'Formula #8 OR("0",TRUE) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'OR("abc",TRUE)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_WRONG_TYPE, FWorksheet.ReadAsText(cell), 'Formula #9 OR("abc",TRUE) result mismatch');
cell := FWorksheet.WriteFormula(0, 1, 'OR(1/0,1/0)');
FWorksheet.CalcFormulas;
CheckEquals(STR_ERR_DIVIDE_BY_ZERO, FWorksheet.ReadAsText(cell), 'Formula #10 OR(1/0,1/0) result mismatch');
end;
Reference in New Issue View Git Blame Copy Permalink