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();
    }
}