/* -*- 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 <test/unoapi_test.hxx>
#include <test/container/xnameaccess.hxx>
#include <test/container/xindexaccess.hxx>
#include <test/container/xelementaccess.hxx>

#include <com/sun/star/frame/Desktop.hpp>

#include <com/sun/star/lang/XMultiServiceFactory.hpp>

#include <com/sun/star/text/XTextDocument.hpp>
#include <com/sun/star/beans/XPropertySet.hpp>
#include <com/sun/star/text/XText.hpp>
#include <com/sun/star/text/XTextContent.hpp>
#include <com/sun/star/text/XTextEmbeddedObjectsSupplier.hpp>
#include <com/sun/star/document/XEmbeddedObjectSupplier.hpp>
#include <com/sun/star/text/XTextFrame.hpp>

#include <comphelper/processfactory.hxx>

using namespace css;
using namespace css::uno;

namespace
{
/**
 * Initial tests for SwXTextEmbeddedObjects.
 */
class SwXTextEmbeddedObjects final : public UnoApiTest,
                                     public apitest::XElementAccess,
                                     public apitest::XIndexAccess,
                                     public apitest::XNameAccess
{
public:
    SwXTextEmbeddedObjects()
        : UnoApiTest(u""_ustr)
        , XElementAccess(cppu::UnoType<document::XEmbeddedObjectSupplier>::get())
        , XIndexAccess(1)
        , XNameAccess(u"Object1"_ustr)
    {
    }

    Reference<XInterface> init() override
    {
        mxComponent = loadFromDesktop(u"private:factory/swriter"_ustr,
                                      u"com.sun.star.text.TextDocument"_ustr);
        Reference<text::XTextDocument> xTextDocument(mxComponent, UNO_QUERY_THROW);
        Reference<lang::XMultiServiceFactory> xMSF(mxComponent, UNO_QUERY_THROW);

        Reference<text::XText> xText = xTextDocument->getText();
        Reference<text::XTextCursor> xCursor = xText->createTextCursor();

        try
        {
            Reference<text::XTextContent> xTextContent(
                xMSF->createInstance(u"com.sun.star.text.TextEmbeddedObject"_ustr),
                UNO_QUERY_THROW);
            Reference<beans::XPropertySet> xPropertySet(xTextContent, UNO_QUERY_THROW);
            xPropertySet->setPropertyValue(u"CLSID"_ustr,
                                           Any(u"12dcae26-281f-416f-a234-c3086127382e"_ustr));

            xText->insertTextContent(xCursor, xTextContent, false);
        }
        catch (Exception&)
        {
        }

        Reference<text::XTextEmbeddedObjectsSupplier> xTEOSupp(xTextDocument, UNO_QUERY_THROW);

        return Reference<XInterface>(xTEOSupp->getEmbeddedObjects(), UNO_QUERY_THROW);
    }

    CPPUNIT_TEST_SUITE(SwXTextEmbeddedObjects);
    CPPUNIT_TEST(testGetByName);
    CPPUNIT_TEST(testGetElementNames);
    CPPUNIT_TEST(testHasByName);
    CPPUNIT_TEST(testGetCount);
    CPPUNIT_TEST(testGetByIndex);
    CPPUNIT_TEST(testGetElementType);
    CPPUNIT_TEST(testHasElements);
    CPPUNIT_TEST_SUITE_END();
};

CPPUNIT_TEST_SUITE_REGISTRATION(SwXTextEmbeddedObjects);
}

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */