writerperfect/qa/unit/PresentationImportTest.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 <com/sun/star/awt/XWindow.hpp>
  11 #include <com/sun/star/beans/XPropertySet.hpp>
  12 #include <com/sun/star/drawing/XDrawPages.hpp>
  13 #include <com/sun/star/drawing/XDrawPagesSupplier.hpp>
  14 #include <com/sun/star/drawing/XShapeDescriptor.hpp>
  15 #include <com/sun/star/drawing/XShapes.hpp>
  16 #include <com/sun/star/text/XText.hpp>
  17 #include <com/sun/star/uno/XComponentContext.hpp>
  18
  19 #include <cppuhelper/supportsservice.hxx>
  20
  21 #include <rtl/ref.hxx>
  22
  23 #include <DocumentHandlerForOdp.hxx>
  24 #include <ImportFilter.hxx>
  25 #include "WpftFilterFixture.hxx"
  26 #include "WpftLoader.hxx"
  27 #include "wpftimport.hxx"
  28
  29 namespace
  30 {
  31 namespace uno = css::uno;
  32
  33 class PresentationImportFilter : public writerperfect::ImportFilter<OdpGenerator>
  34 {
  35 public:
  36     explicit PresentationImportFilter(const uno::Reference<uno::XComponentContext>& rxContext)
  37         : writerperfect::ImportFilter<OdpGenerator>(rxContext)
  38     {
  39     }
  40
  41     // XServiceInfo
  42     virtual OUString SAL_CALL getImplementationName() override;
  43     virtual sal_Bool SAL_CALL supportsService(const OUString& ServiceName) override;
  44     virtual uno::Sequence<OUString> SAL_CALL getSupportedServiceNames() override;
  45
  46 private:
  47     virtual bool doDetectFormat(librevenge::RVNGInputStream& rInput, OUString& rTypeName) override;
  48     virtual bool doImportDocument(weld::Window* pWindow, librevenge::RVNGInputStream& rInput,
  49                                   OdpGenerator& rGenerator,
  50                                   utl::MediaDescriptor& rDescriptor) override;
  51
  52     static void generate(librevenge::RVNGPresentationInterface& rDocument);
  53 };
  54
  55 bool PresentationImportFilter::doImportDocument(weld::Window*, librevenge::RVNGInputStream&,
  56                                                 OdpGenerator& rGenerator, utl::MediaDescriptor&)
  57 {
  58     PresentationImportFilter::generate(rGenerator);
  59     return true;
  60 }
  61
  62 bool PresentationImportFilter::doDetectFormat(librevenge::RVNGInputStream&, OUString& rTypeName)
  63 {
  64     rTypeName = "WpftDummyPresentation";
  65     return true;
  66 }
  67
  68 // XServiceInfo
  69 OUString SAL_CALL PresentationImportFilter::getImplementationName()
  70 {
  71     return "org.libreoffice.comp.Wpft.QA.PresentationImportFilter";
  72 }
  73
  74 sal_Bool SAL_CALL PresentationImportFilter::supportsService(const OUString& rServiceName)
  75 {
  76     return cppu::supportsService(this, rServiceName);
  77 }
  78
  79 uno::Sequence<OUString> SAL_CALL PresentationImportFilter::getSupportedServiceNames()
  80 {
  81     return { "com.sun.star.document.ImportFilter", "com.sun.star.document.ExtendedTypeDetection" };
  82 }
  83
  84 void PresentationImportFilter::generate(librevenge::RVNGPresentationInterface& rDocument)
  85 {
  86     using namespace librevenge;
  87
  88     rDocument.startDocument(RVNGPropertyList());
  89     RVNGPropertyList aProps;
  90     aProps.insert("svg:width", 800);
  91     aProps.insert("svg:height", 600);
  92     rDocument.startSlide(aProps);
  93     aProps.clear();
  94     aProps.insert("svg:x", 50);
  95     aProps.insert("svg:y", 50);
  96     aProps.insert("svg:width", 200);
  97     aProps.insert("svg:height", 100);
  98     rDocument.startTextObject(aProps);
  99     rDocument.openParagraph(RVNGPropertyList());
 100     rDocument.openSpan(RVNGPropertyList());
 101     rDocument.insertText("My hovercraft is full of eels.");
 102     rDocument.closeSpan();
 103     rDocument.closeParagraph();
 104     rDocument.endTextObject();
 105     rDocument.endSlide();
 106     rDocument.endDocument();
 107 }
 108 }
 109
 110 namespace
 111 {
 112 class PresentationImportTest : public writerperfect::test::WpftFilterFixture
 113 {
 114 public:
 115     void test();
 116
 117     CPPUNIT_TEST_SUITE(PresentationImportTest);
 118     CPPUNIT_TEST(test);
 119     CPPUNIT_TEST_SUITE_END();
 120 };
 121
 122 void PresentationImportTest::test()
 123 {
 124     using namespace css;
 125
 126     rtl::Reference<PresentationImportFilter> xFilter{ new PresentationImportFilter(m_xContext) };
 127     writerperfect::test::WpftLoader aLoader(createDummyInput(), xFilter.get(),
 128                                             "private:factory/simpress", m_xDesktop, m_xContext);
 129
 130     uno::Reference<drawing::XDrawPagesSupplier> xDoc(aLoader.getDocument(), uno::UNO_QUERY);
 131     CPPUNIT_ASSERT(xDoc.is());
 132     uno::Reference<drawing::XDrawPages> xPages = xDoc->getDrawPages();
 133     CPPUNIT_ASSERT(xPages.is());
 134     auto aPage = xPages->getByIndex(0);
 135     uno::Reference<beans::XPropertySet> xPageProps;
 136     CPPUNIT_ASSERT(aPage >>= xPageProps);
 137     CPPUNIT_ASSERT(xPageProps.is());
 138     sal_Int32 nProp = 0;
 139     CPPUNIT_ASSERT(xPageProps->getPropertyValue("Height") >>= nProp);
 140     CPPUNIT_ASSERT_EQUAL(sal_Int32(600), nProp);
 141     CPPUNIT_ASSERT(xPageProps->getPropertyValue("Width") >>= nProp);
 142     CPPUNIT_ASSERT_EQUAL(sal_Int32(800), nProp);
 143     uno::Reference<drawing::XShapes> xShapes(xPageProps, uno::UNO_QUERY);
 144     CPPUNIT_ASSERT(xShapes.is());
 145     auto aShape = xShapes->getByIndex(0);
 146     uno::Reference<drawing::XShapeDescriptor> xShapeDesc;
 147     CPPUNIT_ASSERT(aShape >>= xShapeDesc);
 148     CPPUNIT_ASSERT(xShapeDesc.is());
 149     CPPUNIT_ASSERT_EQUAL(OUString("com.sun.star.drawing.TextShape"), xShapeDesc->getShapeType());
 150     uno::Reference<text::XText> xText(xShapeDesc, uno::UNO_QUERY);
 151     CPPUNIT_ASSERT_EQUAL(OUString("My hovercraft is full of eels."), xText->getString());
 152 }
 153
 154 CPPUNIT_TEST_SUITE_REGISTRATION(PresentationImportTest);
 155 }
 156
 157 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */