diff options
| -rw-r--r-- | sc/qa/extras/macros-test.cxx | 17 | ||||
| -rwxr-xr-x | sc/qa/extras/testdocuments/Workbooks.xls | bin | 0 -> 37888 bytes |
2 files changed, 14 insertions, 3 deletions
diff --git a/sc/qa/extras/macros-test.cxx b/sc/qa/extras/macros-test.cxx index a610217e2ff6..9fc81474cb73 100644 --- a/sc/qa/extras/macros-test.cxx +++ b/sc/qa/extras/macros-test.cxx @@ -175,8 +175,21 @@ void ScMacrosTest::testVba() OUString("MiscControlTests."), OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document") }, + { + OUString("Workbooks."), + OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document") + }, }; - + OUString sTempDir; + OUString sTempDirURL; + osl::FileBase:: getTempDirURL( sTempDirURL ); + osl::FileBase::getSystemPathFromFileURL( sTempDirURL, sTempDir ); + Sequence< uno::Any > aParams; + if ( !sTempDir.isEmpty() ) + { + aParams.realloc(1); + aParams[ 0 ] <<= sTempDir; + } for ( sal_uInt32 i=0; i<SAL_N_ELEMENTS( testInfo ); ++i ) { OUString aFileName; @@ -189,8 +202,6 @@ void ScMacrosTest::testVba() Any aRet; Sequence< sal_Int16 > aOutParamIndex; Sequence< Any > aOutParam; - Sequence< uno::Any > aParams; - SfxObjectShell* pFoundShell = SfxObjectShell::GetShellFromComponent(xComponent); CPPUNIT_ASSERT_MESSAGE("Failed to access document shell", pFoundShell); diff --git a/sc/qa/extras/testdocuments/Workbooks.xls b/sc/qa/extras/testdocuments/Workbooks.xls Binary files differnew file mode 100755 index 000000000000..a732167be71b --- /dev/null +++ b/sc/qa/extras/testdocuments/Workbooks.xls |