strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add new test for Workbooks

Browse source 
Change-Id: Id271f10ac82ebae9fedd68d30c7f44435d60751d
This commit is contained in:
Noel Power 2013-05-03 14:08:25 +01:00
parent 569c019883
commit 7e735236e9
2 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
sc/qa/extras/macros-test.cxx
View file

@ -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);

BIN
sc/qa/extras/testdocuments/Workbooks.xls Executable file
View file

Binary file not shown.