/* -*- 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/text/XParagraphCursor.hpp>
#include <reffld.hxx>
#include <com/sun/star/beans/PropertyValue.hpp>
#include <com/sun/star/beans/XPropertySet.hpp>
#include <com/sun/star/container/XIndexAccess.hpp>
#include <com/sun/star/text/ControlCharacter.hpp>
#include <com/sun/star/text/ReferenceFieldPart.hpp>
#include <com/sun/star/text/ReferenceFieldSource.hpp>
#include <com/sun/star/text/XFootnote.hpp>
#include <com/sun/star/text/XFootnotesSupplier.hpp>
#include <com/sun/star/text/XSimpleText.hpp>
#include <com/sun/star/text/XTextField.hpp>
#include <com/sun/star/text/XTextRange.hpp>
#include <com/sun/star/text/XPageCursor.hpp>
#include <com/sun/star/beans/XPropertySetInfo.hpp>
#include <com/sun/star/style/XStyleFamiliesSupplier.hpp>
#include <com/sun/star/text/XText.hpp>
#include <com/sun/star/container/XNameContainer.hpp>
#include <com/sun/star/text/XTextCursor.hpp>
#include <com/sun/star/uno/Any.h>
#include <com/sun/star/uno/Reference.h>
#include <com/sun/star/uno/Sequence.h>
#include <cppunit/TestAssert.h>
#include <cppunit/extensions/HelperMacros.h>
#include <rtl/ustring.hxx>
#include <sal/types.h>
#include <swmodeltestbase.hxx>

#include <com/sun/star/text/XTextDocument.hpp>
#include <com/sun/star/text/XTextFieldsSupplier.hpp>
#include <comphelper/propertyvalue.hxx>

#include <authfld.hxx>
#include <docsh.hxx>
#include <rootfrm.hxx>
#include <wrtsh.hxx>

namespace
{
/// Covers sw/source/core/fields/ fixes.
class Test : public SwModelTestBase
{
public:
    Test()
        : SwModelTestBase(u"/sw/qa/core/fields/data/"_ustr)
    {
    }
};

CPPUNIT_TEST_FIXTURE(Test, testAuthorityTooltip)
{
    // Create a document with a bibliography reference in it.
    createSwDoc();
    uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);
    uno::Reference<beans::XPropertySet> xField(
        xFactory->createInstance(u"com.sun.star.text.TextField.Bibliography"_ustr), uno::UNO_QUERY);
    uno::Sequence<beans::PropertyValue> aFields = {
        comphelper::makePropertyValue(u"Identifier"_ustr, u"ARJ00"_ustr),
        comphelper::makePropertyValue(u"Author"_ustr, u"Ar, J"_ustr),
        comphelper::makePropertyValue(u"Title"_ustr, u"mytitle"_ustr),
        comphelper::makePropertyValue(u"Year"_ustr, u"2020"_ustr),
    };
    xField->setPropertyValue(u"Fields"_ustr, uno::Any(aFields));
    uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
    uno::Reference<text::XText> xText = xTextDocument->getText();
    uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();
    uno::Reference<text::XTextContent> xContent(xField, uno::UNO_QUERY);
    xText->insertTextContent(xCursor, xContent, /*bAbsorb=*/false);

    // Get the tooltip of the field.
    SwWrtShell* pWrtShell = getSwDocShell()->GetWrtShell();
    pWrtShell->Left(SwCursorSkipMode::Chars, /*bSelect=*/false, 1, /*bBasicCall=*/false);
    SwPaM* pCursor = pWrtShell->GetCursor();
    auto pField = dynamic_cast<SwAuthorityField*>(
        SwCursorShell::GetFieldAtCursor(pCursor, /*bIncludeInputFieldAtStart=*/true));
    CPPUNIT_ASSERT(pField);
    const SwRootFrame* pLayout = pWrtShell->GetLayout();
    OUString aTooltip = pField->GetAuthority(pLayout);

    // Without the accompanying fix in place, generating this tooltip text was not possible without
    // first inserting an empty bibliography table into the document.
    CPPUNIT_ASSERT_EQUAL(u"ARJ00: Ar, J, mytitle, 2020"_ustr, aTooltip);
}

CPPUNIT_TEST_FIXTURE(Test, testTdf143424)
{
    createSwDoc("tdf143424.odt");

    uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
    uno::Reference<container::XEnumerationAccess> xFieldsAccess(
        xTextFieldsSupplier->getTextFields());
    uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());

    // SwModify::Add() enumerates in invalid (mostly reverse) order, not like in document

    // Field: Chapter Format: Chapter name
    uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
    CPPUNIT_ASSERT_EQUAL(u"Another title"_ustr, xField->getPresentation(false));

    // Field: Chapter Format: Chapter number and name
    xField.set(xFields->nextElement(), uno::UNO_QUERY);
    CPPUNIT_ASSERT_EQUAL(u"Chapter 2 - Another title"_ustr, xField->getPresentation(false));

    // Field: Chapter Format: Chapter number
    xField.set(xFields->nextElement(), uno::UNO_QUERY);
    CPPUNIT_ASSERT_EQUAL(u"Chapter 2 -"_ustr, xField->getPresentation(false));

    // Field: Chapter Format: Chapter number without separator
    xField.set(xFields->nextElement(), uno::UNO_QUERY);
    CPPUNIT_ASSERT_EQUAL(u"2"_ustr, xField->getPresentation(false));
}

CPPUNIT_TEST_FIXTURE(Test, testChapterFieldsFollowedBy)
{
    createSwDoc("chapter_field_followedby.odt");

    uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
    uno::Reference<container::XEnumerationAccess> xFieldsAccess(
        xTextFieldsSupplier->getTextFields());
    uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());

    // SwModify::Add() enumerates in invalid (mostly reverse) order, not like in document
    std::vector<OUString> aFieldValues = {
        u"Followed by tab"_ustr, // #1
        u"I.I.I.I"_ustr, // #16
        u">I.I.I.I< Followed by newline"_ustr, // #15 Linefeed is replaced by space
        u">I.I.I.I<"_ustr, // #14
        u"Followed by newline"_ustr, // #13
        u"I.I.I"_ustr, // #12
        u">I.I.I<Followed by nothing"_ustr, // #11 Nothing between text & outline
        u">I.I.I<"_ustr, // #10
        u"Followed by nothing"_ustr, // #9
        u"I.I"_ustr, // #8
        u">I.I< Followed by space"_ustr, // #7 Space as is
        u">I.I<"_ustr, // #6
        u"Followed by space"_ustr, // #5
        u"I"_ustr, // #4
        u">I< Followed by tab"_ustr, // #3 Here is a tab, but replaced by space in field
        u">I<"_ustr, // #2
    };

    for (const auto& sValue : aFieldValues)
    {
        CPPUNIT_ASSERT(xFields->hasMoreElements());
        uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
        CPPUNIT_ASSERT_EQUAL(sValue, xField->getPresentation(false));
    }
}

CPPUNIT_TEST_FIXTURE(Test, testTdf86790)
{
    createSwDoc("tdf86790.docx");

    uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
    uno::Reference<container::XEnumerationAccess> xFieldsAccess(
        xTextFieldsSupplier->getTextFields());
    uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());

    // Similarly to testChapterFieldsFollowedBy, the fields are enumerated with #1 first and everything else in reverse order
    std::vector<std::pair<OUString, OUString>> aFieldValues = {
        { " Heading 1", "1" }, // #1
        { " foobar", "22.2" }, // #5
        { " foobar", "4" }, // #4
        { " Heading 2", "1.1" }, // #3
        { " Heading 2", "1.1" }, // #2
    };

    for (const auto& sValue : aFieldValues)
    {
        CPPUNIT_ASSERT(xFields->hasMoreElements());
        uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
        CPPUNIT_ASSERT_EQUAL(sValue.first, xField->getPresentation(true));
        CPPUNIT_ASSERT_EQUAL(sValue.second, xField->getPresentation(false));
    }
    CPPUNIT_ASSERT(!xFields->hasMoreElements());
}

void InsertParagraphBreak(const uno::Reference<text::XTextCursor>& xCursor)
{
    uno::Reference<text::XText> xText = xCursor->getText();
    xText->insertControlCharacter(xCursor, text::ControlCharacter::PARAGRAPH_BREAK, false);
}
void InsertHeading(const uno::Reference<text::XTextCursor>& xCursor, const OUString& content)
{
    uno::Reference<beans::XPropertySet> xCursorPropertySet(xCursor, uno::UNO_QUERY);
    uno::Reference<text::XText> xText = xCursor->getText();

    xCursorPropertySet->setPropertyValue(u"ParaStyleName"_ustr, uno::Any(u"Heading 1"_ustr));
    xText->insertString(xCursor, content, false);
    InsertParagraphBreak(xCursor);
}

/// If there is referenced text both above and below, STYLEREF searches up
CPPUNIT_TEST_FIXTURE(Test, testStyleRefSearchUp)
{
    // Arrange
    // Create a document with headings both above and below a cursor
    createSwDoc();

    uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
    uno::Reference<text::XText> xText = xTextDocument->getText();

    uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();

    InsertHeading(xCursor, u"Heading far above field"_ustr);
    InsertHeading(xCursor, u"Heading above field"_ustr);
    InsertParagraphBreak(xCursor);
    InsertHeading(xCursor, u"Heading below field"_ustr);
    InsertHeading(xCursor, u"Heading far below field"_ustr);

    uno::Reference<text::XParagraphCursor> xParagraphCursor(xCursor, uno::UNO_QUERY);
    xParagraphCursor->gotoPreviousParagraph(false); // Heading far below...
    xParagraphCursor->gotoPreviousParagraph(false); // Heading below...
    xParagraphCursor->gotoPreviousParagraph(false); // Blank space

    // Act
    // Insert a STYLEREF field which looks for "Heading 1"s
    uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);
    uno::Reference<text::XTextField> xField(
        xFactory->createInstance(u"com.sun.star.text.TextField.GetReference"_ustr), uno::UNO_QUERY);

    uno::Reference<beans::XPropertySet> xFieldPropertySet(xField, uno::UNO_QUERY);
    xFieldPropertySet->setPropertyValue(u"ReferenceFieldSource"_ustr,
                                        uno::Any(sal_Int16(text::ReferenceFieldSource::STYLE)));
    xFieldPropertySet->setPropertyValue(u"ReferenceFieldPart"_ustr,
                                        uno::Any(sal_Int16(text::ReferenceFieldPart::TEXT)));
    xFieldPropertySet->setPropertyValue(u"SourceName"_ustr, uno::Any(u"Heading 1"_ustr));

    xField->attach(xCursor);

    // Assert
    // Make sure the field has the right text
    CPPUNIT_ASSERT_EQUAL(u"Heading above field"_ustr, xField->getPresentation(false));
}

/// If there is referenced text only below, STYLEREF searches down
CPPUNIT_TEST_FIXTURE(Test, testStyleRefSearchDown)
{
    // Arrange
    // Create a document with headings below a cursor
    createSwDoc();

    uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
    uno::Reference<text::XText> xText = xTextDocument->getText();

    uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();

    InsertParagraphBreak(xCursor);
    InsertHeading(xCursor, u"Heading below field"_ustr);
    InsertHeading(xCursor, u"Heading far below field"_ustr);

    uno::Reference<text::XParagraphCursor> xParagraphCursor(xCursor, uno::UNO_QUERY);
    xParagraphCursor->gotoPreviousParagraph(false); // Heading far below...
    xParagraphCursor->gotoPreviousParagraph(false); // Heading below...
    xParagraphCursor->gotoPreviousParagraph(false); // Blank space

    // Act
    // Insert a STYLEREF field which looks for "Heading 1"s
    uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);
    uno::Reference<text::XTextField> xField(
        xFactory->createInstance(u"com.sun.star.text.TextField.GetReference"_ustr), uno::UNO_QUERY);

    uno::Reference<beans::XPropertySet> xFieldPropertySet(xField, uno::UNO_QUERY);
    xFieldPropertySet->setPropertyValue(u"ReferenceFieldSource"_ustr,
                                        uno::Any(sal_Int16(text::ReferenceFieldSource::STYLE)));
    xFieldPropertySet->setPropertyValue(u"ReferenceFieldPart"_ustr,
                                        uno::Any(sal_Int16(text::ReferenceFieldPart::TEXT)));
    xFieldPropertySet->setPropertyValue(u"SourceName"_ustr, uno::Any(u"Heading 1"_ustr));

    xField->attach(xCursor);

    // Assert
    // Make sure the field has the right text
    CPPUNIT_ASSERT_EQUAL(u"Heading below field"_ustr, xField->getPresentation(false));
}

/// STYLEREFs in marginals (headers or footers) should search in the page they are on first, regardless if there is anything above them
CPPUNIT_TEST_FIXTURE(Test, testMarginalStyleRef)
{
    // Arrange
    // Create a document with 2 headings
    createSwDoc();

    uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
    uno::Reference<text::XText> xText = xTextDocument->getText();

    uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();

    InsertHeading(xCursor, u"Top heading on page"_ustr);
    InsertHeading(xCursor, u"Bottom heading on page"_ustr);

    // Act
    // Insert a STYLEREF field which looks for "Heading 1"s into the footer
    uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);
    uno::Reference<text::XTextField> xField(
        xFactory->createInstance(u"com.sun.star.text.TextField.GetReference"_ustr), uno::UNO_QUERY);

    uno::Reference<style::XStyleFamiliesSupplier> xStyleFamiliesSupplier(mxComponent,
                                                                         uno::UNO_QUERY);
    uno::Reference<container::XNameContainer> xParagraphStylesContainer(
        xStyleFamiliesSupplier->getStyleFamilies()->getByName(u"PageStyles"_ustr), uno::UNO_QUERY);

    uno::Reference<beans::XPropertySet> xPagePropertySet(
        xParagraphStylesContainer->getByName(u"Standard"_ustr), uno::UNO_QUERY);

    xPagePropertySet->setPropertyValue(u"FooterIsOn"_ustr, uno::Any(true));
    uno::Reference<text::XText> xFooterText(xPagePropertySet->getPropertyValue(u"FooterText"_ustr),
                                            uno::UNO_QUERY);

    uno::Reference<beans::XPropertySet> xFieldPropertySet(xField, uno::UNO_QUERY);
    xFieldPropertySet->setPropertyValue(u"ReferenceFieldSource"_ustr,
                                        uno::Any(sal_Int16(text::ReferenceFieldSource::STYLE)));
    xFieldPropertySet->setPropertyValue(u"ReferenceFieldPart"_ustr,
                                        uno::Any(sal_Int16(text::ReferenceFieldPart::TEXT)));
    xFieldPropertySet->setPropertyValue(u"SourceName"_ustr, uno::Any(u"Heading 1"_ustr));

    uno::Reference<text::XTextRange> xFooterCursor = xFooterText->createTextCursor();
    xField->attach(xFooterCursor);

    // Assert
    // Make sure the field has the right text
    CPPUNIT_ASSERT_EQUAL(u"Top heading on page"_ustr, xField->getPresentation(false));
}

/// STYLEREFs in footnotes should search from the point of the reference mark
CPPUNIT_TEST_FIXTURE(Test, testFootnoteStyleRef)
{
    // Arrange
    // Create a document with headings both above and below a cursor
    createSwDoc();

    uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
    uno::Reference<text::XText> xText = xTextDocument->getText();

    uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();

    InsertHeading(xCursor, u"Heading far above reference mark"_ustr);
    InsertHeading(xCursor, u"Heading above reference mark"_ustr);
    InsertParagraphBreak(xCursor);
    InsertHeading(xCursor, u"Heading below reference mark"_ustr);
    InsertHeading(xCursor, u"Heading far below reference mark"_ustr);

    uno::Reference<text::XParagraphCursor> xParagraphCursor(xCursor, uno::UNO_QUERY);
    xParagraphCursor->gotoPreviousParagraph(false); // Heading far below...
    xParagraphCursor->gotoPreviousParagraph(false); // Heading below...
    xParagraphCursor->gotoPreviousParagraph(false); // Blank space

    // Act
    // Insert a STYLEREF field which looks for "Heading 1"s into a footnote
    uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);

    uno::Reference<text::XFootnote> xFootnote(
        xFactory->createInstance(u"com.sun.star.text.Footnote"_ustr), uno::UNO_QUERY);
    xFootnote->setLabel(u"Style reference mark"_ustr);
    xText->insertTextContent(xCursor, xFootnote, false);

    uno::Reference<text::XTextField> xField(
        xFactory->createInstance(u"com.sun.star.text.TextField.GetReference"_ustr), uno::UNO_QUERY);

    uno::Reference<beans::XPropertySet> xFieldPropertySet(xField, uno::UNO_QUERY);
    xFieldPropertySet->setPropertyValue(u"ReferenceFieldSource"_ustr,
                                        uno::Any(sal_Int16(text::ReferenceFieldSource::STYLE)));
    xFieldPropertySet->setPropertyValue(u"ReferenceFieldPart"_ustr,
                                        uno::Any(sal_Int16(text::ReferenceFieldPart::TEXT)));
    xFieldPropertySet->setPropertyValue(u"SourceName"_ustr, uno::Any(u"Heading 1"_ustr));

    uno::Reference<text::XSimpleText> xFootnoteText(xFootnote, uno::UNO_QUERY);
    uno::Reference<text::XTextRange> xFootnoteCursor = xFootnoteText->createTextCursor();
    xField->attach(xFootnoteCursor);

    // Assert
    // Make sure the field has the right text
    CPPUNIT_ASSERT_EQUAL(u"Heading above reference mark"_ustr, xField->getPresentation(false));
}

/// STYLEREFs with the REFFLDFLAG_HIDE_NON_NUMERICAL flag should hide all characters that are not numerical or delimiters
CPPUNIT_TEST_FIXTURE(Test, testNumericalStyleRef)
{
    createSwDoc("suppress-non-numerical.docx");

    uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
    uno::Reference<container::XEnumerationAccess> xFieldsAccess(
        xTextFieldsSupplier->getTextFields());
    uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());

    // Similarly to testChapterFieldsFollowedBy, the fields are enumerated with #1 first and everything else in reverse order
    std::vector<std::pair<OUString, OUString>> aFieldValues = {
        { " Heading 1", "3" }, // #1
        { " Heading 2", ".2\\@123^&~|a....." }, // #4
        { " Heading 2", ".2\\|a....." }, // #3
        { " Heading 1", "Chapter 3.!" }, // #2
    };

    for (const auto& sValue : aFieldValues)
    {
        CPPUNIT_ASSERT(xFields->hasMoreElements());
        uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
        CPPUNIT_ASSERT_EQUAL(sValue.first, xField->getPresentation(true));
        CPPUNIT_ASSERT_EQUAL(sValue.second, xField->getPresentation(false));
    }
    CPPUNIT_ASSERT(!xFields->hasMoreElements());
}

/// We should be able to import these flags from OOXML documents
/// (Note: in Word, STYLEREF 'search bottom up' flag does nothing unless it's in a marginal, we place no such limitation but
///        this docx only has such stylerefs to avoid confusion)
CPPUNIT_TEST_FIXTURE(Test, testOOXMLStyleRefFlags)
{
    createSwDoc("styleref-flags.docx");

    uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
    uno::Reference<container::XEnumerationAccess> xFieldsAccess(
        xTextFieldsSupplier->getTextFields());
    uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());

    // Similarly to testChapterFieldsFollowedBy, the fields are enumerated with #1 first and everything else in reverse order
    std::vector<std::pair<OUString, OUString>> aFieldValues = {
        { " Heading 2", "2.1" }, // #1
        { " Heading 1", "3" }, // #5
        { " Heading 1", "A top level heading at the top of the page" }, // #4
        { " Heading 1", "The last top level heading" }, // #3
        { " Heading 2", "Heading 2.1" }, // #2
    };

    for (const auto& sValue : aFieldValues)
    {
        CPPUNIT_ASSERT(xFields->hasMoreElements());
        uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
        CPPUNIT_ASSERT_EQUAL(sValue.first, xField->getPresentation(true));
        CPPUNIT_ASSERT_EQUAL(sValue.second, xField->getPresentation(false));
    }
    CPPUNIT_ASSERT(!xFields->hasMoreElements());
}

/// We should be able to import these flags from OOXML documents
/// (Note: in Word, STYLEREF 'search bottom up' flag does nothing unless it's in a marginal, we place no such limitation but
///        this docx only has such stylerefs to avoid confusion)
CPPUNIT_TEST_FIXTURE(Test, testODFStyleRef)
{
    // if createSwDoc is used then calcLayout is called and the field values are different
    loadFromFile(u"styleref.odt");

    uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
    uno::Reference<container::XEnumerationAccess> xFieldsAccess(
        xTextFieldsSupplier->getTextFields());
    uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());

    // Similarly to testChapterFieldsFollowedBy, the fields are enumerated with #1 first and everything else in reverse order
    std::vector<std::pair<OUString, OUString>> aFieldValues = {
        { " Heading 1", "1:" }, // #1
        { " Heading 2", "In footnotes" }, // #10
        { " Heading 2", "In document text" }, // #9
        { " Heading 1", "STYLEREF in different locations" }, // #8
        { " Heading 1", "2:" }, // #7
        { " Heading 1", "With STYLEREF, many things are possible" }, // #6
        { " Heading 1", "1:" }, // #5
        { " Heading 1", "STYLEREF in different locations" }, // #4
        { " Heading 1", "2:" }, // #3
        { " Heading 1", "With STYLEREF, many things are possible" }, // #2
    };

    for (const auto& sValue : aFieldValues)
    {
        CPPUNIT_ASSERT(xFields->hasMoreElements());
        uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
        CPPUNIT_ASSERT_EQUAL(sValue.first, xField->getPresentation(true));
        CPPUNIT_ASSERT_EQUAL(sValue.second, xField->getPresentation(false));
    }
    CPPUNIT_ASSERT(!xFields->hasMoreElements());
}
}

CPPUNIT_PLUGIN_IMPLEMENT();

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