basic/qa/cppunit/test_vba.cxx     |    1 +
 sd/qa/unit/data/odp/tdf161430.odp |binary
 sd/qa/unit/import-tests2.cxx      |   23 +++++++++++++++++++++++
 3 files changed, 24 insertions(+)

New commits:
commit 2b6caa40d682e04e47a03d426e1359cdd74efbdc
Author:     Andreas Heinisch <andreas.heini...@yahoo.de>
AuthorDate: Mon Jun 10 15:08:28 2024 +0200
Commit:     Andreas Heinisch <andreas.heini...@yahoo.de>
CommitDate: Mon Jun 10 17:50:33 2024 +0200

    tdf#160321 - Added missing VB test
    
    Change-Id: I4019599aa9d7803a63e4270b06841915ea428392
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/168637
    Tested-by: Jenkins
    Reviewed-by: Andreas Heinisch <andreas.heini...@yahoo.de>

diff --git a/basic/qa/cppunit/test_vba.cxx b/basic/qa/cppunit/test_vba.cxx
index d9c26acb87e5..e3ed10138da4 100644
--- a/basic/qa/cppunit/test_vba.cxx
+++ b/basic/qa/cppunit/test_vba.cxx
@@ -87,6 +87,7 @@ void VBATest::testMiscVBAFunctions()
         "Err.Raise.vb",
         "exp.vb",
         "fix.vb",
+        "gosub_goto.vb",
         "hex.vb",
         "hour.vb",
         "formatnumber.vb",
commit ed5bac73c8e09c606b271f385431c5a57b84bbb5
Author:     Caolán McNamara <caolan.mcnam...@collabora.com>
AuthorDate: Mon Jun 10 12:41:14 2024 +0100
Commit:     Caolán McNamara <caolan.mcnam...@collabora.com>
CommitDate: Mon Jun 10 17:50:22 2024 +0200

    Related: tdf#161430 add test case to guard against its return
    
    Change-Id: Ia2b12ab696632a4f08fd4c20472646dcfd9058c6
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/168634
    Reviewed-by: Caolán McNamara <caolan.mcnam...@collabora.com>
    Tested-by: Jenkins

diff --git a/sd/qa/unit/data/odp/tdf161430.odp 
b/sd/qa/unit/data/odp/tdf161430.odp
new file mode 100644
index 000000000000..1ac9acac85b6
Binary files /dev/null and b/sd/qa/unit/data/odp/tdf161430.odp differ
diff --git a/sd/qa/unit/import-tests2.cxx b/sd/qa/unit/import-tests2.cxx
index 182c66ce1e82..ab66d016b665 100644
--- a/sd/qa/unit/import-tests2.cxx
+++ b/sd/qa/unit/import-tests2.cxx
@@ -59,6 +59,9 @@
 #include <sfx2/linkmgr.hxx>
 #include <vcl/BitmapReadAccess.hxx>
 #include <vcl/dibtools.hxx>
+#include <sdresid.hxx>
+#include <stlpool.hxx>
+#include <strings.hrc>
 
 using namespace ::com::sun::star;
 
@@ -2062,6 +2065,26 @@ CPPUNIT_TEST_FIXTURE(SdImportTest2, testTdf161023)
     }
 }
 
+CPPUNIT_TEST_FIXTURE(SdImportTest2, testTdf161430)
+{
+    // Without the bug fix this opens with the classic solid 'blue' background 
used in "Outline 1"
+    // as seen in slide 3
+    createSdImpressDoc("odp/tdf161430.odp");
+    SdXImpressDocument* pXImpressDocument = 
dynamic_cast<SdXImpressDocument*>(mxComponent.get());
+    CPPUNIT_ASSERT(pXImpressDocument);
+    SdDrawDocument* pDoc = pXImpressDocument->GetDoc();
+
+    SdStyleSheetPool* const pPool(pDoc->GetSdStyleSheetPool());
+
+    OUString aStyleName(SdResId(STR_PSEUDOSHEET_OUTLINE) + " 1");
+    SfxStyleSheetBase* pStyleSheet = pPool->Find(aStyleName, 
SfxStyleFamily::Pseudo);
+    CPPUNIT_ASSERT(pStyleSheet);
+
+    const XFillStyleItem& rFillStyle = 
pStyleSheet->GetItemSet().Get(XATTR_FILLSTYLE);
+    drawing::FillStyle eXFS = rFillStyle.GetValue();
+    CPPUNIT_ASSERT_EQUAL(drawing::FillStyle_NONE, eXFS);
+}
+
 CPPUNIT_PLUGIN_IMPLEMENT();
 
 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Reply via email to