Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 236 insertions, 0 deletions

diff --git a/sw/qa/extras/ooxmlexport/ooxmllinks.cxx b/sw/qa/extras/ooxmlexport/ooxmllinks.cxx
new file mode 100644
index 000000000..eac63c3bc
--- /dev/null
+++ b/sw/qa/extras/ooxmlexport/ooxmllinks.cxx
@@ -0,0 +1,236 @@
+/* -*- 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 <swmodeltestbase.hxx>
+#include <unotools/tempfile.hxx>
+#include <tools/urlobj.hxx>
+#include <officecfg/Office/Common.hxx>
+#include <o3tl/string_view.hxx>
+
+// This file contains tests to check relative/absolute hyperlinks handling
+
+#define USE_TEMP_DIR true
+#define DONT_MODIFY_LINK false
+
+#define USE_ABSOLUTE true
+#define USE_RELATIVE false
+
+// bAbsolute - decide if output link should be converted to absolute
+// bUseTempDir - decide if link should be modified to be placed in temp dir - for testing relative links
+#define DECLARE_LINKS_EXPORT_TEST(TestName, FileName, bAbsolute, bUseTempDir)                      \
+    class TestName : public Test                                                                   \
+    {                                                                                              \
+    protected:                                                                                     \
+        virtual OUString getTestName() override { return #TestName; }                              \
+        virtual void postLoad(const char*) override                                                \
+        {                                                                                          \
+            if (!bUseTempDir)                                                                      \
+                return;                                                                            \
+                                                                                                   \
+            uno::Reference<text::XTextRange> xParagraph = getParagraph(1);                         \
+            /* can be changed only after import */                                                 \
+            uno::Reference<text::XTextRange> xText = getRun(xParagraph, 1);                        \
+                                                                                                   \
+            /* Get original link */                                                                \
+            OUString sOriginalFileName = getProperty<OUString>(xText, "HyperLinkURL");             \
+            INetURLObject aOriginalURL(sOriginalFileName);                                         \
+            CPPUNIT_ASSERT(!aOriginalURL.HasError());                                              \
+            OUString sFileName = aOriginalURL.GetLastName();                                       \
+            CPPUNIT_ASSERT(!sFileName.isEmpty());                                                  \
+                                                                                                   \
+            /* Get temp path */                                                                    \
+            OUString sTempDir = utl::TempFile::GetTempNameBaseDirectory();                         \
+                                                                                                   \
+            /* Create & apply new URL */                                                           \
+            OUString sOriginalFileInTempDir = sTempDir + sFileName;                                \
+            uno::Reference<beans::XPropertySet> xPropertySet(xText, css::uno::UNO_QUERY);          \
+            xPropertySet->setPropertyValue("HyperLinkURL", css::uno::Any(sOriginalFileInTempDir)); \
+        }                                                                                          \
+                                                                                                   \
+    public:                                                                                        \
+        CPPUNIT_TEST_SUITE(TestName);                                                              \
+        CPPUNIT_TEST(Import_Export_Import);                                                        \
+        CPPUNIT_TEST_SUITE_END();                                                                  \
+        void Import_Export_Import()                                                                \
+        {                                                                                          \
+            auto xChanges = comphelper::ConfigurationChanges::create();                            \
+            officecfg::Office::Common::Save::URL::FileSystem::set(!bAbsolute, xChanges);           \
+            xChanges->commit();                                                                    \
+            executeLoadReloadVerify(FileName);                                                     \
+        }                                                                                          \
+        void verify() override;                                                                    \
+    };                                                                                             \
+    CPPUNIT_TEST_SUITE_REGISTRATION(TestName);                                                     \
+    void TestName::verify()
+
+// bAbsolute - decide if relative link should be converted to absolute on import
+#define DECLARE_LINKS_IMPORT_TEST(TestName, FileName, bAbsolute)                                   \
+    class TestName : public Test                                                                   \
+    {                                                                                              \
+    protected:                                                                                     \
+        virtual OUString getTestName() override { return #TestName; }                              \
+                                                                                                   \
+    public:                                                                                        \
+        CPPUNIT_TEST_SUITE(TestName);                                                              \
+        CPPUNIT_TEST(Import);                                                                      \
+        CPPUNIT_TEST_SUITE_END();                                                                  \
+        void Import()                                                                              \
+        {                                                                                          \
+            auto xChanges = comphelper::ConfigurationChanges::create();                            \
+            officecfg::Office::Common::Save::URL::FileSystem::set(!bAbsolute, xChanges);           \
+            xChanges->commit();                                                                    \
+            executeImportTest(FileName);                                                           \
+        }                                                                                          \
+        void verify() override;                                                                    \
+    };                                                                                             \
+    CPPUNIT_TEST_SUITE_REGISTRATION(TestName);                                                     \
+    void TestName::verify()
+
+class Test : public SwModelTestBase
+{
+public:
+    Test()
+        : SwModelTestBase("/sw/qa/extras/ooxmlexport/data/", "Office Open XML Text")
+    {
+    }
+
+protected:
+    /**
+     * Denylist handling
+     */
+    bool mustTestImportOf(const char* filename) const override
+    {
+        // If the testcase is stored in some other format, it's pointless to test.
+        return o3tl::ends_with(filename, ".docx");
+    }
+};
+
+/* IMPORT */
+
+DECLARE_LINKS_IMPORT_TEST(testRelativeToRelativeImport, "relative-link.docx", USE_RELATIVE)
+{
+    uno::Reference<text::XTextRange> xParagraph = getParagraph(1);
+    uno::Reference<text::XTextRange> xText = getRun(xParagraph, 1);
+    OUString sTarget = getProperty<OUString>(xText, "HyperLinkURL");
+    CPPUNIT_ASSERT(sTarget.startsWith("file:///"));
+    CPPUNIT_ASSERT(sTarget.endsWith("relative.docx"));
+}
+
+DECLARE_LINKS_IMPORT_TEST(testRelativeToAbsoluteImport, "relative-link.docx", USE_ABSOLUTE)
+{
+    uno::Reference<text::XTextRange> xParagraph = getParagraph(1);
+    uno::Reference<text::XTextRange> xText = getRun(xParagraph, 1);
+    OUString sTarget = getProperty<OUString>(xText, "HyperLinkURL");
+    CPPUNIT_ASSERT(sTarget.startsWith("file:///"));
+    CPPUNIT_ASSERT(sTarget.endsWith("relative.docx"));
+}
+
+DECLARE_LINKS_IMPORT_TEST(testAbsoluteToAbsoluteImport, "absolute-link.docx", USE_ABSOLUTE)
+{
+    uno::Reference<text::XTextRange> xParagraph = getParagraph(1);
+    uno::Reference<text::XTextRange> xText = getRun(xParagraph, 1);
+    // # should be encoded
+    CPPUNIT_ASSERT_EQUAL(OUString("file:///B:/Users/user/Desktop/a%23b/test.docx"),
+                         getProperty<OUString>(xText, "HyperLinkURL"));
+}
+
+DECLARE_LINKS_IMPORT_TEST(testAbsoluteToRelativeImport, "absolute-link.docx", USE_RELATIVE)
+{
+    uno::Reference<text::XTextRange> xParagraph = getParagraph(1);
+    uno::Reference<text::XTextRange> xText = getRun(xParagraph, 1);
+    // when target file (B:\\...) & document with link (temp dir) are placed on different partitions, absolute path will be loaded
+    CPPUNIT_ASSERT_EQUAL(OUString("file:///B:/Users/user/Desktop/a%23b/test.docx"),
+                         getProperty<OUString>(xText, "HyperLinkURL"));
+}
+
+DECLARE_LINKS_IMPORT_TEST(testTdf123627_import, "tdf123627.docx", USE_RELATIVE)
+{
+    uno::Reference<text::XTextRange> xText = getRun(getParagraph(1), 1);
+    OUString sTarget = getProperty<OUString>(xText, "HyperLinkURL");
+    CPPUNIT_ASSERT(sTarget.startsWith("file:///"));
+    CPPUNIT_ASSERT(sTarget.endsWith("New/test.docx"));
+}
+
+/* EXPORT */
+
+DECLARE_LINKS_EXPORT_TEST(testRelativeToRelativeExport, "relative-link.docx", USE_RELATIVE,
+                          USE_TEMP_DIR)
+{
+    xmlDocUniquePtr pXmlDoc = parseExport("word/_rels/document.xml.rels");
+
+    assertXPath(pXmlDoc, "/rels:Relationships/rels:Relationship[@TargetMode='External']", "Target",
+                "relative.docx");
+}
+
+DECLARE_LINKS_EXPORT_TEST(testRelativeToAbsoluteExport, "relative-link.docx", USE_ABSOLUTE,
+                          DONT_MODIFY_LINK)
+{
+    xmlDocUniquePtr pXmlDoc = parseExport("word/_rels/document.xml.rels");
+
+    OUString sTarget = getXPath(pXmlDoc, "/rels:Relationships/rels:Relationship[2]", "Target");
+    CPPUNIT_ASSERT(sTarget.startsWith("file:///"));
+    CPPUNIT_ASSERT(sTarget.endsWith("relative.docx"));
+}
+
+DECLARE_LINKS_EXPORT_TEST(testAbsoluteToRelativeExport, "absolute-link.docx", USE_RELATIVE,
+                          USE_TEMP_DIR)
+{
+    xmlDocUniquePtr pXmlDoc = parseExport("word/_rels/document.xml.rels");
+
+    assertXPath(pXmlDoc, "/rels:Relationships/rels:Relationship[2]", "Target", "test.docx");
+}
+
+DECLARE_LINKS_EXPORT_TEST(testAbsoluteToAbsoluteExport, "absolute-link.docx", USE_ABSOLUTE,
+                          DONT_MODIFY_LINK)
+{
+    xmlDocUniquePtr pXmlDoc = parseExport("word/_rels/document.xml.rels");
+
+    OUString sTarget = getXPath(pXmlDoc, "/rels:Relationships/rels:Relationship[2]", "Target");
+    CPPUNIT_ASSERT(sTarget.startsWith("file:///"));
+    CPPUNIT_ASSERT(sTarget.endsWith("test.docx"));
+}
+
+DECLARE_LINKS_EXPORT_TEST(testTdf123627_export, "tdf123627.docx", USE_RELATIVE, USE_TEMP_DIR)
+{
+    xmlDocUniquePtr pXmlDoc = parseExport("word/_rels/document.xml.rels");
+
+    assertXPath(pXmlDoc, "/rels:Relationships/rels:Relationship[@TargetMode='External']", "Target",
+                "test.docx");
+}
+
+DECLARE_LINKS_EXPORT_TEST(testTdf126590_export, "tdf126590.docx", USE_ABSOLUTE, DONT_MODIFY_LINK)
+{
+    xmlDocUniquePtr pXmlDoc = parseExport("word/_rels/document.xml.rels");
+    // in the original file: Target="file:///C:\TEMP\test.docx" => invalid file URI
+    assertXPath(pXmlDoc, "/rels:Relationships/rels:Relationship[@TargetMode='External']", "Target",
+                "file:///C:/TEMP/test.docx");
+}
+
+DECLARE_LINKS_EXPORT_TEST(testTdf126768_export, "tdf126768.docx", USE_ABSOLUTE, DONT_MODIFY_LINK)
+{
+    xmlDocUniquePtr pXmlDoc = parseExport("word/_rels/document.xml.rels");
+    // in the original file: "file:///C:\\TEMP\\test.docx" => invalid file URI
+    assertXPath(pXmlDoc, "/rels:Relationships/rels:Relationship[@TargetMode='External']", "Target",
+                "file:///C:/TEMP/test.docx");
+}
+
+DECLARE_LINKS_EXPORT_TEST(testNon_ascii_link_export, "non_ascii_link.docx", USE_ABSOLUTE,
+                          DONT_MODIFY_LINK)
+{
+    xmlDocUniquePtr pXmlDoc = parseExport("word/_rels/document.xml.rels");
+
+    assertXPath(pXmlDoc, "/rels:Relationships/rels:Relationship[@TargetMode='External']", "Target",
+                INetURLObject::decode(u"file:///C:/TEMP/%C3%A9kezet.docx",
+                                      INetURLObject::DecodeMechanism::ToIUri,
+                                      RTL_TEXTENCODING_UTF8));
+}
+
+CPPUNIT_PLUGIN_IMPLEMENT();
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */