1 files changed, 156 insertions, 0 deletions
diff --git a/writerperfect/qa/unit/PresentationImportTest.cxx b/writerperfect/qa/unit/PresentationImportTest.cxx
new file mode 100644
index 000000000..e1414dec5
--- /dev/null
+++ b/writerperfect/qa/unit/PresentationImportTest.cxx
@@ -0,0 +1,156 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+
+#include <com/sun/star/beans/XPropertySet.hpp>
+#include <com/sun/star/drawing/XDrawPages.hpp>
+#include <com/sun/star/drawing/XDrawPagesSupplier.hpp>
+#include <com/sun/star/drawing/XShapeDescriptor.hpp>
+#include <com/sun/star/drawing/XShapes.hpp>
+#include <com/sun/star/text/XText.hpp>
+#include <com/sun/star/uno/XComponentContext.hpp>
+
+#include <cppuhelper/supportsservice.hxx>
+
+#include <rtl/ref.hxx>
+
+#include <DocumentHandlerForOdp.hxx>
+#include <ImportFilter.hxx>
+#include "WpftFilterFixture.hxx"
+#include "WpftLoader.hxx"
+#include "wpftimport.hxx"
+
+namespace
+{
+namespace uno = css::uno;
+
+class PresentationImportFilter : public writerperfect::ImportFilter<OdpGenerator>
+{
+public:
+    explicit PresentationImportFilter(const uno::Reference<uno::XComponentContext>& rxContext)
+        : writerperfect::ImportFilter<OdpGenerator>(rxContext)
+    {
+    }
+
+    // XServiceInfo
+    virtual OUString SAL_CALL getImplementationName() override;
+    virtual sal_Bool SAL_CALL supportsService(const OUString& ServiceName) override;
+    virtual uno::Sequence<OUString> SAL_CALL getSupportedServiceNames() override;
+
+private:
+    virtual bool doDetectFormat(librevenge::RVNGInputStream& rInput, OUString& rTypeName) override;
+    virtual bool doImportDocument(weld::Window* pWindow, librevenge::RVNGInputStream& rInput,
+                                  OdpGenerator& rGenerator,
+                                  utl::MediaDescriptor& rDescriptor) override;
+
+    static void generate(librevenge::RVNGPresentationInterface& rDocument);
+};
+
+bool PresentationImportFilter::doImportDocument(weld::Window*, librevenge::RVNGInputStream&,
+                                                OdpGenerator& rGenerator, utl::MediaDescriptor&)
+{
+    PresentationImportFilter::generate(rGenerator);
+    return true;
+}
+
+bool PresentationImportFilter::doDetectFormat(librevenge::RVNGInputStream&, OUString& rTypeName)
+{
+    rTypeName = "WpftDummyPresentation";
+    return true;
+}
+
+// XServiceInfo
+OUString SAL_CALL PresentationImportFilter::getImplementationName()
+{
+    return "org.libreoffice.comp.Wpft.QA.PresentationImportFilter";
+}
+
+sal_Bool SAL_CALL PresentationImportFilter::supportsService(const OUString& rServiceName)
+{
+    return cppu::supportsService(this, rServiceName);
+}
+
+uno::Sequence<OUString> SAL_CALL PresentationImportFilter::getSupportedServiceNames()
+{
+    return { "com.sun.star.document.ImportFilter", "com.sun.star.document.ExtendedTypeDetection" };
+}
+
+void PresentationImportFilter::generate(librevenge::RVNGPresentationInterface& rDocument)
+{
+    using namespace librevenge;
+
+    rDocument.startDocument(RVNGPropertyList());
+    RVNGPropertyList aProps;
+    aProps.insert("svg:width", 800);
+    aProps.insert("svg:height", 600);
+    rDocument.startSlide(aProps);
+    aProps.clear();
+    aProps.insert("svg:x", 50);
+    aProps.insert("svg:y", 50);
+    aProps.insert("svg:width", 200);
+    aProps.insert("svg:height", 100);
+    rDocument.startTextObject(aProps);
+    rDocument.openParagraph(RVNGPropertyList());
+    rDocument.openSpan(RVNGPropertyList());
+    rDocument.insertText("My hovercraft is full of eels.");
+    rDocument.closeSpan();
+    rDocument.closeParagraph();
+    rDocument.endTextObject();
+    rDocument.endSlide();
+    rDocument.endDocument();
+}
+}
+
+namespace
+{
+class PresentationImportTest : public writerperfect::test::WpftFilterFixture
+{
+public:
+    void test();
+
+    CPPUNIT_TEST_SUITE(PresentationImportTest);
+    CPPUNIT_TEST(test);
+    CPPUNIT_TEST_SUITE_END();
+};
+
+void PresentationImportTest::test()
+{
+    using namespace css;
+
+    rtl::Reference<PresentationImportFilter> xFilter{ new PresentationImportFilter(m_xContext) };
+    writerperfect::test::WpftLoader aLoader(createDummyInput(), xFilter.get(),
+                                            "private:factory/simpress", m_xDesktop, m_xContext);
+
+    uno::Reference<drawing::XDrawPagesSupplier> xDoc(aLoader.getDocument(), uno::UNO_QUERY);
+    CPPUNIT_ASSERT(xDoc.is());
+    uno::Reference<drawing::XDrawPages> xPages = xDoc->getDrawPages();
+    CPPUNIT_ASSERT(xPages.is());
+    auto aPage = xPages->getByIndex(0);
+    uno::Reference<beans::XPropertySet> xPageProps;
+    CPPUNIT_ASSERT(aPage >>= xPageProps);
+    CPPUNIT_ASSERT(xPageProps.is());
+    sal_Int32 nProp = 0;
+    CPPUNIT_ASSERT(xPageProps->getPropertyValue("Height") >>= nProp);
+    CPPUNIT_ASSERT_EQUAL(sal_Int32(600), nProp);
+    CPPUNIT_ASSERT(xPageProps->getPropertyValue("Width") >>= nProp);
+    CPPUNIT_ASSERT_EQUAL(sal_Int32(800), nProp);
+    uno::Reference<drawing::XShapes> xShapes(xPageProps, uno::UNO_QUERY);
+    CPPUNIT_ASSERT(xShapes.is());
+    auto aShape = xShapes->getByIndex(0);
+    uno::Reference<drawing::XShapeDescriptor> xShapeDesc;
+    CPPUNIT_ASSERT(aShape >>= xShapeDesc);
+    CPPUNIT_ASSERT(xShapeDesc.is());
+    CPPUNIT_ASSERT_EQUAL(OUString("com.sun.star.drawing.TextShape"), xShapeDesc->getShapeType());
+    uno::Reference<text::XText> xText(xShapeDesc, uno::UNO_QUERY);
+    CPPUNIT_ASSERT_EQUAL(OUString("My hovercraft is full of eels."), xText->getString());
+}
+
+CPPUNIT_TEST_SUITE_REGISTRATION(PresentationImportTest);
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */