summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNoel Power <noel.power@suse.com>2013-05-03 14:08:25 +0100
committerNoel Power <noel.power@suse.com>2013-05-07 09:56:27 +0100
commit0b97f8578b2f8322c7c50555d6c5a118b9f278e3 (patch)
treed4622021e1cdf2661680c910551c3c21de2c9d46
parentd6bafb1a5b73daab714851449a54b69611c6dffa (diff)
add new test for Workbooks
Change-Id: Id271f10ac82ebae9fedd68d30c7f44435d60751d
-rw-r--r--sc/qa/extras/macros-test.cxx17
-rwxr-xr-xsc/qa/extras/testdocuments/Workbooks.xlsbin0 -> 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
new file mode 100755
index 000000000000..a732167be71b
--- /dev/null
+++ b/sc/qa/extras/testdocuments/Workbooks.xls
Binary files differ