add first writer vba test - for find behavior
Change-Id: I25136c7954339d79521f84ad9eca79a701930fdd
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/136944
Tested-by: Jenkins
Reviewed-by: Tomaž Vajngerl <quikee@gmail.com>
diff --git a/sw/qa/core/data/doc/testVba.doc b/sw/qa/core/data/doc/testVba.doc
deleted file mode 100644
index e8c87c6..0000000
--- a/sw/qa/core/data/doc/testVba.doc
+++ /dev/null
Binary files differ
diff --git a/sw/qa/core/data/docm/testFind.docm b/sw/qa/core/data/docm/testFind.docm
new file mode 100755
index 0000000..a0a3166
--- /dev/null
+++ b/sw/qa/core/data/docm/testFind.docm
Binary files differ
diff --git a/sw/qa/core/macros-test.cxx b/sw/qa/core/macros-test.cxx
index 282fa5d..50ca474 100644
--- a/sw/qa/core/macros-test.cxx
+++ b/sw/qa/core/macros-test.cxx
@@ -107,8 +107,8 @@ void SwMacrosTest::testVba()
{
TestMacroInfo testInfo[] = {
{
OUString("testVba.doc"),
OUString("vnd.sun.Star.script:Project.NewMacros.Macro1?language=Basic&location=document")
OUString("testFind.docm"),
OUString("vnd.sun.Star.script:Project.Module1.testFind?language=Basic&location=document")
}
};
for ( size_t i=0; i<SAL_N_ELEMENTS( testInfo ); ++i )
@@ -125,10 +125,10 @@ void SwMacrosTest::testVba()
SfxObjectShell* pFoundShell = SfxObjectShell::GetShellFromComponent(xComponent);
CPPUNIT_ASSERT_MESSAGE("Failed to access document shell", pFoundShell);
SfxObjectShell::CallXScript(xComponent, sUrl, aParams, aRet, aOutParamIndex,aOutParam);
CPPUNIT_ASSERT_EQUAL(ERRCODE_NONE, SfxObjectShell::CallXScript(xComponent, sUrl, aParams, aRet, aOutParamIndex,aOutParam));
OUString aStringRes;
aRet >>= aStringRes;
// CPPUNIT_ASSERT_EQUAL(OUString("OK"), aStringRes);
CPPUNIT_ASSERT(aRet >>= aStringRes);
CPPUNIT_ASSERT_EQUAL(OUString("OK"), aStringRes);
pFoundShell->DoClose();
}
}