sc/qa/extras/macros-test.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  */
   9
  10 #include <sal/config.h>
  11 #include <test/unoapi_test.hxx>
  12 #include <unotest/macros_test.hxx>
  13 #include <rtl/strbuf.hxx>
  14 #include <osl/file.hxx>
  15
  16 #include <sfx2/app.hxx>
  17 #include <sfx2/docfilt.hxx>
  18 #include <sfx2/docfile.hxx>
  19 #include <sfx2/sfxmodelfactory.hxx>
  20 #include <svl/intitem.hxx>
  21 #include <com/sun/star/frame/Desktop.hpp>
  22
  23 #include <basic/sbxdef.hxx>
  24
  25 #include "docsh.hxx"
  26 #include "patattr.hxx"
  27 #include "scitems.hxx"
  28 #include "document.hxx"
  29
  30 using namespace ::com::sun::star;
  31 using namespace ::com::sun::star::uno;
  32
  33 /* Implementation of Macros test */
  34
  35 class ScMacrosTest : public UnoApiTest
  36 {
  37 public:
  38     ScMacrosTest();
  39
  40     void testStarBasic();
  41     void testVba();
  42     CPPUNIT_TEST_SUITE(ScMacrosTest);
  43 #if !defined(MACOSX)
  44     //enable this test if you want to play with star basic macros in unit tests
  45     //works but does nothing useful yet
  46     CPPUNIT_TEST(testStarBasic);
  47     CPPUNIT_TEST(testVba);
  48 #endif
  49
  50     CPPUNIT_TEST_SUITE_END();
  51
  52 private:
  53     uno::Reference<uno::XInterface> m_xCalcComponent;
  54 };
  55
  56 void ScMacrosTest::testStarBasic()
  57 {
  58     const OUString aFileNameBase("StarBasic.ods");
  59     OUString aFileName;
  60     createFileURL(aFileNameBase, aFileName);
  61     std::cout << "StarBasic test" << std::endl;
  62     uno::Reference< com::sun::star::lang::XComponent > xComponent = loadFromDesktop(aFileName, "com.sun.star.sheet.SpreadsheetDocument");
  63
  64     CPPUNIT_ASSERT_MESSAGE("Failed to load StarBasic.ods", xComponent.is());
  65
  66     OUString aURL("vnd.sun.Star.script:Standard.Module1.Macro1?language=Basic&location=document");
  67     String sUrl = aURL;
  68     Any aRet;
  69     Sequence< sal_Int16 > aOutParamIndex;
  70     Sequence< Any > aOutParam;
  71     Sequence< uno::Any > aParams;
  72
  73     SfxObjectShell* pFoundShell = SfxObjectShell::GetShellFromComponent(xComponent);
  74
  75     CPPUNIT_ASSERT_MESSAGE("Failed to access document shell", pFoundShell);
  76     ScDocShell* xDocSh = static_cast<ScDocShell*>(pFoundShell);
  77     ScDocument* pDoc = xDocSh->GetDocument();
  78
  79     pFoundShell->CallXScript(xComponent, sUrl, aParams, aRet, aOutParamIndex,aOutParam);
  80     double aValue;
  81     pDoc->GetValue(0,0,0,aValue);
  82     std::cout << "returned value = " << aValue << std::endl;
  83     CPPUNIT_ASSERT_DOUBLES_EQUAL_MESSAGE("script did not change the value of Sheet1.A1",2.0, aValue, 0.00001);
  84     xDocSh->DoClose();
  85 }
  86
  87 void ScMacrosTest::testVba()
  88 {
  89     TestMacroInfo testInfo[] = {
  90         {
  91             OUString("TestAddress."),
  92             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
  93         },
  94         {
  95             OUString("vba."),
  96             OUString("vnd.sun.Star.script:VBAProject.Modul1.Modul1?language=Basic&location=document"),
  97         },
  98         {
  99             OUString("MiscRangeTests."),
 100             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 101         },
 102         {
 103             OUString("bytearraystring."),
 104             OUString("vnd.sun.Star.script:VBAProject.testMacro.test?language=Basic&location=document")
 105         },
 106         {
 107             OUString("AutoFilter."),
 108             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 109         },
 110         {
 111             OUString("CalcFont."),
 112             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 113         },
 114         {
 115             OUString("TestIntersection."),
 116             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 117         },
 118         {
 119             OUString("TestUnion."),
 120             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 121         },
 122         {
 123             OUString("range-4."),
 124             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 125         },
 126         {
 127             OUString("Ranges-3."),
 128             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 129         },
 130         {
 131             OUString("TestCalc_Rangetest."),
 132             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 133         },
 134         {
 135             OUString("TestCalc_Rangetest2."),
 136             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 137         },
 138         {
 139             OUString("Ranges-2."),
 140             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 141         },
 142         {
 143             OUString("pagesetup."),
 144             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 145         },
 146         {
 147             OUString("Window."),
 148             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 149         },
 150         {
 151             OUString("window2."),
 152             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 153         },
 154         {
 155             OUString("PageBreaks."),
 156             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 157         },
 158         {
 159             OUString("Shapes."),
 160             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 161         },
 162         {
 163             OUString("Ranges."),
 164             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 165         },
 166         {
 167             OUString("CheckOptionToggleValue."),
 168             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 169         },
 170         {
 171             OUString("GeneratedEventTest."),
 172             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 173         },
 174         {
 175             OUString("MiscControlTests."),
 176             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 177         },
 178         {
 179             OUString("Workbooks."),
 180             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 181         },
 182         {
 183             OUString("Names."),
 184             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
 185         },
 186     };
 187     OUString sTempDir;
 188     OUString sTempDirURL;
 189     osl::FileBase:: getTempDirURL( sTempDirURL );
 190     osl::FileBase::getSystemPathFromFileURL( sTempDirURL, sTempDir );
 191     sTempDir += OUString( SAL_PATHDELIMITER );
 192     OUString sTestFileName("My Test WorkBook.xls");
 193     Sequence< uno::Any > aParams;
 194     for ( sal_uInt32  i=0; i<SAL_N_ELEMENTS( testInfo ); ++i )
 195     {
 196         OUString aFileName;
 197         createFileURL(testInfo[i].sFileBaseName + "xls", aFileName);
 198         uno::Reference< com::sun::star::lang::XComponent > xComponent = loadFromDesktop(aFileName, "com.sun.star.sheet.SpreadsheetDocument");
 199         OUString sMsg( "Failed to load " + aFileName );
 200         CPPUNIT_ASSERT_MESSAGE( OUStringToOString( sMsg, RTL_TEXTENCODING_UTF8 ).getStr(), xComponent.is() );
 201
 202         String sUrl = testInfo[i].sMacroUrl;
 203         Any aRet;
 204         Sequence< sal_Int16 > aOutParamIndex;
 205         Sequence< Any > aOutParam;
 206         bool bWorkbooksHandling = OUString( testInfo[i].sFileBaseName ).equalsAscii("Workbooks.") && !sTempDir.isEmpty() ;
 207
 208         if ( bWorkbooksHandling )
 209         {
 210             aParams.realloc(2);
 211             aParams[ 0 ] <<= sTempDir;
 212             aParams[ 1 ] <<= sTestFileName;
 213         }
 214
 215         SfxObjectShell* pFoundShell = SfxObjectShell::GetShellFromComponent(xComponent);
 216
 217         CPPUNIT_ASSERT_MESSAGE("Failed to access document shell", pFoundShell);
 218         std::cout << "about to invoke vba test in " << OUStringToOString( aFileName, RTL_TEXTENCODING_UTF8 ).getStr() << std::endl;
 219
 220         pFoundShell->CallXScript(xComponent, sUrl, aParams, aRet, aOutParamIndex,aOutParam);
 221         OUString aStringRes;
 222         aRet >>= aStringRes;
 223         std::cout << "value of Ret " << OUStringToOString( aStringRes, RTL_TEXTENCODING_UTF8 ).getStr() << std::endl;
 224         CPPUNIT_ASSERT_MESSAGE( "script reported failure",aStringRes == "OK" );
 225         pFoundShell->DoClose();
 226         if ( bWorkbooksHandling )
 227         {
 228             OUString sFileUrl;
 229             OUString sFilePath = sTempDir + sTestFileName;
 230             osl::FileBase::getFileURLFromSystemPath( sFilePath, sFileUrl );
 231             if ( !sFileUrl.isEmpty() )
 232                 osl::File::remove( sFileUrl );
 233         }
 234     }
 235 }
 236
 237 ScMacrosTest::ScMacrosTest()
 238       : UnoApiTest("/sc/qa/extras/testdocuments")
 239 {
 240 }
 241
 242 CPPUNIT_TEST_SUITE_REGISTRATION(ScMacrosTest);
 243
 244 CPPUNIT_PLUGIN_IMPLEMENT();
 245
 246 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */