sc/CppunitTest_sc_parallelism.mk | 52 +++-----
sc/qa/unit/parallelism.cxx | 226 +++++++++++++++++++++++++++++++++++++++
2 files changed, 247 insertions(+), 31 deletions(-)
New commits:
commit 989240664c33bc83800e27c1c0e718294321f46a
Author: Dennis Francis <dennis.fran...@collabora.com>
AuthorDate: Mon Nov 4 21:16:50 2019 +0530
Commit: Dennis Francis <dennis.fran...@collabora.com>
CommitDate: Thu Nov 7 07:56:40 2019 +0100
tdf#124270 : unit-tests for spurious Err:522 fixes
Change-Id: I44818c61611a6cdbcef3b71e151f7899795b3fa2
Reviewed-on: https://gerrit.libreoffice.org/82075
Tested-by: Jenkins
Reviewed-by: Dennis Francis <dennis.fran...@collabora.com>
diff --git a/sc/CppunitTest_sc_parallelism.mk b/sc/CppunitTest_sc_parallelism.mk
index 3b129626a169..eb7aaa446954 100644
--- a/sc/CppunitTest_sc_parallelism.mk
+++ b/sc/CppunitTest_sc_parallelism.mk
@@ -15,29 +15,41 @@ $(eval $(call
gb_CppunitTest_add_exception_objects,sc_parallelism, \
sc/qa/unit/parallelism \
))
+$(eval $(call gb_CppunitTest_use_library_objects,sc_parallelism, \
+ sc \
+ scqahelper \
+))
+
$(eval $(call gb_CppunitTest_use_externals,sc_parallelism, \
boost_headers \
$(call gb_Helper_optional,OPENCL,clew) \
- mdds_headers \
+ icu_headers \
+ icui18n \
+ icuuc \
+ libxml2 \
+ mdds_headers \
+ orcus \
+ orcus-parser \
))
$(eval $(call gb_CppunitTest_use_libraries,sc_parallelism, \
+ $(call gb_Helper_optional,AVMEDIA,avmedia) \
basegfx \
comphelper \
cppu \
cppuhelper \
+ dbtools \
drawinglayer \
editeng \
for \
forui \
i18nlangtag \
- msfilter \
- oox \
+ i18nutil \
+ $(call gb_Helper_optional,OPENCL,opencl) \
sal \
salhelper \
sax \
- sc \
- scqahelper \
+ sb \
sfx \
sot \
svl \
@@ -50,6 +62,7 @@ $(eval $(call gb_CppunitTest_use_libraries,sc_parallelism, \
ucbhelper \
unotest \
utl \
+ vbahelper \
vcl \
xo \
))
@@ -75,43 +88,20 @@ $(eval $(call gb_CppunitTest_use_ure,sc_parallelism))
$(eval $(call gb_CppunitTest_use_vcl,sc_parallelism))
$(eval $(call gb_CppunitTest_use_components,sc_parallelism,\
- basic/util/sb \
- chart2/source/chartcore \
- chart2/source/controller/chartcontroller \
- comphelper/util/comphelp \
configmgr/source/configmgr \
- dbaccess/util/dba \
- embeddedobj/util/embobj \
- eventattacher/source/evtatt \
- filter/source/config/cache/filterconfig1 \
- forms/util/frm \
framework/util/fwk \
+ i18npool/source/search/i18nsearch \
i18npool/util/i18npool \
- linguistic/source/lng \
- oox/util/oox \
- package/source/xstor/xstor \
- package/util/package2 \
sax/source/expatwrap/expwrap \
scaddins/source/analysis/analysis \
scaddins/source/datefunc/date \
- sc/util/sc \
- sc/util/scfilt \
+ scaddins/source/pricing/pricing \
sfx2/util/sfx \
- sot/util/sot \
- svl/util/svl \
- svtools/util/svt \
- svx/util/svx \
- svx/util/svxcore \
- toolkit/util/tk \
ucb/source/core/ucb1 \
ucb/source/ucp/file/ucpfile1 \
- ucb/source/ucp/tdoc/ucptdoc1 \
- uui/util/uui \
- unotools/util/utl \
- unoxml/source/rdf/unordf \
unoxml/source/service/unoxml \
+ uui/util/uui \
vcl/vcl.common \
- xmloff/util/xo \
))
$(eval $(call gb_CppunitTest_use_configuration,sc_parallelism))
diff --git a/sc/qa/unit/parallelism.cxx b/sc/qa/unit/parallelism.cxx
index f9fd1ef4b5b9..965220e572d6 100644
--- a/sc/qa/unit/parallelism.cxx
+++ b/sc/qa/unit/parallelism.cxx
@@ -10,6 +10,9 @@
#include <docsh.hxx>
#include <document.hxx>
+#include <clipparam.hxx>
+#include <markdata.hxx>
+#include <undoblk.hxx>
#include <formulacell.hxx>
#include <formulagroup.hxx>
#include <scopetools.hxx>
@@ -42,6 +45,9 @@ public:
void testFormulaGroupSpanEvalNonGroup();
void testArrayFormulaGroup();
void testDependentFormulaGroupCollection();
+ void testFormulaGroupWithForwardSelfReference();
+ void testFormulaGroupsInCyclesAndWithSelfReference();
+ void testFormulaGroupsInCyclesAndWithSelfReference2();
CPPUNIT_TEST_SUITE(ScParallelismTest);
CPPUNIT_TEST(testSUMIFS);
@@ -57,6 +63,9 @@ public:
CPPUNIT_TEST(testFormulaGroupSpanEvalNonGroup);
CPPUNIT_TEST(testArrayFormulaGroup);
CPPUNIT_TEST(testDependentFormulaGroupCollection);
+ CPPUNIT_TEST(testFormulaGroupWithForwardSelfReference);
+ CPPUNIT_TEST(testFormulaGroupsInCyclesAndWithSelfReference);
+ CPPUNIT_TEST(testFormulaGroupsInCyclesAndWithSelfReference2);
CPPUNIT_TEST_SUITE_END();
private:
@@ -64,6 +73,9 @@ private:
bool getThreadingFlag();
void setThreadingFlag(bool bSet);
+ static ScUndoCut* cutToClip(ScDocShell& rDocSh, const ScRange& rRange,
ScDocument* pClipDoc, bool bCreateUndo);
+ static void pasteFromClip(ScDocument* pDestDoc, const ScRange& rDestRange,
ScDocument* pClipDoc);
+
ScDocument *m_pDoc;
ScDocShellRef m_xDocShell;
@@ -87,6 +99,47 @@ void ScParallelismTest::setThreadingFlag( bool bSet )
xBatch->commit();
}
+ScUndoCut* ScParallelismTest::cutToClip(ScDocShell& rDocSh, const ScRange&
rRange, ScDocument* pClipDoc, bool bCreateUndo)
+{
+ ScDocument* pSrcDoc = &rDocSh.GetDocument();
+
+ ScClipParam aClipParam(rRange, true);
+ ScMarkData aMark;
+ aMark.SetMarkArea(rRange);
+ pSrcDoc->CopyToClip(aClipParam, pClipDoc, &aMark, false, false);
+
+ // Taken from ScViewFunc::CutToClip()
+ ScDocumentUniquePtr pUndoDoc;
+ if (bCreateUndo)
+ {
+ pUndoDoc.reset(new ScDocument( SCDOCMODE_UNDO ));
+ pUndoDoc->InitUndoSelected( pSrcDoc, aMark );
+ // all sheets - CopyToDocument skips those that don't exist in pUndoDoc
+ ScRange aCopyRange = rRange;
+ aCopyRange.aStart.SetTab(0);
+ aCopyRange.aEnd.SetTab(pSrcDoc->GetTableCount()-1);
+ pSrcDoc->CopyToDocument( aCopyRange,
+ (InsertDeleteFlags::ALL & ~InsertDeleteFlags::OBJECTS) |
InsertDeleteFlags::NOCAPTIONS,
+ false, *pUndoDoc );
+ }
+
+ aMark.MarkToMulti();
+ pSrcDoc->DeleteSelection( InsertDeleteFlags::ALL, aMark );
+ aMark.MarkToSimple();
+
+ if (pUndoDoc)
+ return new ScUndoCut( &rDocSh, rRange, rRange.aEnd, aMark,
std::move(pUndoDoc) );
+
+ return nullptr;
+}
+
+void ScParallelismTest::pasteFromClip(ScDocument* pDestDoc, const ScRange&
rDestRange, ScDocument* pClipDoc)
+{
+ ScMarkData aMark;
+ aMark.SetMarkArea(rDestRange);
+ pDestDoc->CopyFromClip(rDestRange, aMark, InsertDeleteFlags::ALL, nullptr,
pClipDoc);
+}
+
void ScParallelismTest::setUp()
{
test::BootstrapFixture::setUp();
@@ -753,6 +806,179 @@ void
ScParallelismTest::testDependentFormulaGroupCollection()
m_pDoc->DeleteTab(0);
}
+void ScParallelismTest::testFormulaGroupWithForwardSelfReference()
+{
+ sc::AutoCalcSwitch aACSwitch(*m_pDoc, false);
+ m_pDoc->InsertTab(0, "1");
+
+ OUString aFormula;
+ m_pDoc->SetValue(2, 4, 0, 10.0); // C5 <== 10
+
+ for (size_t nRow = 0; nRow < 4; ++nRow)
+ {
+ // Formula-group in B1:B4 with first cell = "=SUM($A1:$A1024) + C1"
+ aFormula = "=SUM($A" + OUString::number(1 + nRow) +
+ ":$A" + OUString::number(1024 + nRow) + ") + C" +
OUString::number(nRow + 1);
+ m_pDoc->SetFormula(ScAddress(1, nRow, 0), aFormula,
+ formula::FormulaGrammar::GRAM_NATIVE_UI);
+
+ // Formula-group in C1:C4 with first cell = "=SUM($A1:$A1024) + C2"
+ aFormula = "=SUM($A" + OUString::number(1 + nRow) +
+ ":$A" + OUString::number(1024 + nRow) + ") + C" +
OUString::number(nRow + 2);
+ m_pDoc->SetFormula(ScAddress(2, nRow, 0), aFormula,
+ formula::FormulaGrammar::GRAM_NATIVE_UI);
+ }
+
+ m_xDocShell->DoHardRecalc();
+
+ OString aMsg;
+ for (size_t nCol = 0; nCol < 2; ++nCol)
+ {
+ for (size_t nRow = 0; nRow < 4; ++nRow)
+ {
+ aMsg = "Value at Cell (Col = " + OString::number(nCol + 1) + ",
Row = " + OString::number(nRow) + ", Tab = 0)";
+ CPPUNIT_ASSERT_EQUAL_MESSAGE(aMsg.getStr(), 10.0,
m_pDoc->GetValue(1 + nCol, nRow, 0));
+ }
+ }
+
+ m_pDoc->DeleteTab(0);
+}
+
+void ScParallelismTest::testFormulaGroupsInCyclesAndWithSelfReference()
+{
+ sc::AutoCalcSwitch aACSwitch(*m_pDoc, false);
+ m_pDoc->InsertTab(0, "1");
+
+ m_pDoc->SetValue(1, 0, 0, 1.0); // B1 <== 1
+ m_pDoc->SetValue(3, 0, 0, 2.0); // D1 <== 2
+ OUString aFormula;
+
+ for (size_t nRow = 0; nRow < 5; ++nRow)
+ {
+ // Formula-group in C1:C5 with first cell = "=SUM($A1:$A1024) + D1"
+ aFormula = "=SUM($A" + OUString::number(1 + nRow) +
+ ":$A" + OUString::number(1024 + nRow) + ") + D" +
OUString::number(nRow + 1);
+ m_pDoc->SetFormula(ScAddress(2, nRow, 0), aFormula,
+ formula::FormulaGrammar::GRAM_NATIVE_UI);
+
+ if (nRow == 0)
+ continue;
+
+ // nRow starts from 1 till 4 (for D2 to D5).
+ // Formula-group in D2:D5 with first cell = "=SUM($A1:$A1024) + D1 +
B2"
+ aFormula = "=SUM($A" + OUString::number(nRow) +
+ ":$A" + OUString::number(1023 + nRow) + ") + D" +
OUString::number(nRow) +
+ " + B" + OUString::number(nRow + 1);
+ m_pDoc->SetFormula(ScAddress(3, nRow, 0), aFormula,
+ formula::FormulaGrammar::GRAM_NATIVE_UI);
+
+ // Formula-group in B2:B5 with first cell = "=SUM($A1:$A1024) + C1 +
B1"
+ aFormula = "=SUM($A" + OUString::number(nRow) +
+ ":$A" + OUString::number(1023 + nRow) + ") + C" +
OUString::number(nRow) +
+ " + B" + OUString::number(nRow);
+ m_pDoc->SetFormula(ScAddress(1, nRow, 0), aFormula,
+ formula::FormulaGrammar::GRAM_NATIVE_UI);
+ }
+
+ m_xDocShell->DoHardRecalc();
+ m_pDoc->SetAutoCalc(true);
+
+ const ScRange aChangeRange(1, 1, 0, 1, 4, 0); // B2:B5
+ ScMarkData aMark;
+ aMark.SelectOneTable(0);
+
+ // Set up clip document.
+ ScDocument aClipDoc(SCDOCMODE_CLIP);
+ aClipDoc.ResetClip(m_pDoc, &aMark);
+ // Cut B1:B2 to clipboard.
+ cutToClip(*m_xDocShell, aChangeRange, &aClipDoc, false);
+ pasteFromClip(m_pDoc, aChangeRange, &aClipDoc);
+
+ double fExpected[3][5] = {
+ { 1, 3, 8, 21, 55 },
+ { 2, 5, 13, 34, 89 },
+ { 2, 5, 13, 34, 89 }
+ };
+
+ OString aMsg;
+ for (size_t nCol = 0; nCol < 3; ++nCol)
+ {
+ for (size_t nRow = 0; nRow < 5; ++nRow)
+ {
+ aMsg = "Value at Cell (Col = " + OString::number(nCol + 1) + ",
Row = " + OString::number(nRow) + ", Tab = 0)";
+ CPPUNIT_ASSERT_EQUAL_MESSAGE(aMsg.getStr(), fExpected[nCol][nRow],
m_pDoc->GetValue(1 + nCol, nRow, 0));
+ }
+ }
+
+ m_pDoc->DeleteTab(0);
+}
+
+void ScParallelismTest::testFormulaGroupsInCyclesAndWithSelfReference2()
+{
+ sc::AutoCalcSwitch aACSwitch(*m_pDoc, false);
+ m_pDoc->InsertTab(0, "1");
+
+ m_pDoc->SetValue(1, 0, 0, 1.0); // B1 <== 1
+ m_pDoc->SetValue(3, 0, 0, 2.0); // D1 <== 2
+ m_pDoc->SetValue(4, 0, 0, 1.0); // E1 <== 1
+ OUString aFormula;
+
+ for (size_t nRow = 0; nRow < 5; ++nRow)
+ {
+ // Formula-group in C1:C5 with first cell = "=SUM($A1:$A1024) + D1 +
E1"
+ aFormula = "=SUM($A" + OUString::number(1 + nRow) +
+ ":$A" + OUString::number(1024 + nRow) + ") + D" +
OUString::number(nRow + 1) +
+ " + E" + OUString::number(nRow + 1);
+ m_pDoc->SetFormula(ScAddress(2, nRow, 0), aFormula,
+ formula::FormulaGrammar::GRAM_NATIVE_UI);
+
+ if (nRow == 0)
+ continue;
+
+ // Formula-group in B2:B5 with first cell = "=SUM($A1:$A1024) + C1 +
B1"
+ aFormula = "=SUM($A" + OUString::number(nRow) +
+ ":$A" + OUString::number(1023 + nRow) + ") + C" +
OUString::number(nRow) +
+ " + B" + OUString::number(nRow);
+ m_pDoc->SetFormula(ScAddress(1, nRow, 0), aFormula,
+ formula::FormulaGrammar::GRAM_NATIVE_UI);
+
+ // Formula-group in D2:D5 with first cell = "=SUM($A1:$A1024) + D1 +
B2"
+ aFormula = "=SUM($A" + OUString::number(nRow) +
+ ":$A" + OUString::number(1023 + nRow) + ") + D" +
OUString::number(nRow) +
+ " + B" + OUString::number(nRow + 1);
+ m_pDoc->SetFormula(ScAddress(3, nRow, 0), aFormula,
+ formula::FormulaGrammar::GRAM_NATIVE_UI);
+
+ // Formula-group in E2:E5 with first cell = "=SUM($A1:$A1024) + E1 +
D2"
+ aFormula = "=SUM($A" + OUString::number(nRow) +
+ ":$A" + OUString::number(1023 + nRow) + ") + E" +
OUString::number(nRow) +
+ " + D" + OUString::number(nRow + 1);
+ m_pDoc->SetFormula(ScAddress(4, nRow, 0), aFormula,
+ formula::FormulaGrammar::GRAM_NATIVE_UI);
+ }
+
+ m_xDocShell->DoHardRecalc();
+
+ double fExpected[4][5] = {
+ { 1, 4, 17, 70, 286 },
+ { 3, 13, 53, 216, 881 },
+ { 2, 6, 23, 93, 379 },
+ { 1, 7, 30, 123, 502 }
+ };
+
+ OString aMsg;
+ for (size_t nCol = 0; nCol < 4; ++nCol)
+ {
+ for (size_t nRow = 0; nRow < 5; ++nRow)
+ {
+ aMsg = "Value at Cell (Col = " + OString::number(nCol + 1) + ",
Row = " + OString::number(nRow) + ", Tab = 0)";
+ CPPUNIT_ASSERT_EQUAL_MESSAGE(aMsg.getStr(), fExpected[nCol][nRow],
m_pDoc->GetValue(1 + nCol, nRow, 0));
+ }
+ }
+
+ m_pDoc->DeleteTab(0);
+}
+
CPPUNIT_TEST_SUITE_REGISTRATION(ScParallelismTest);
CPPUNIT_PLUGIN_IMPLEMENT();
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
