#8986 Test for image before title

Author: StephanMeijer

test/Tests/Readers/Docx.hs

@@ -265,6 +265,10 @@ tests = [ testGroup "document"
             "i18n blocks (headers and blockquotes)"
             "docx/i18n_blocks.docx"
             "docx/i18n_blocks.native"
+          , testCompare
+            "Image before Title"
+            "docx/image-before-title.docx"
+            "docx/image-before-title.native"
           , testCompare
             "lists"
             "docx/lists.docx"

test/docx/image-before-title.docx

@@ -0,0 +1,87 @@
+[ Para
+    [ Image
+        ( ""
+        , []
+        , [ ( "width" , "6.268055555555556in" )
+          , ( "height" , "6.268055555555556in" )
+          ]
+        )
+        [ Str "A"
+        , Space
+        , Str "cat"
+        , Space
+        , Str "holding"
+        , Space
+        , Str "a"
+        , Space
+        , Str "rainbow"
+        , Space
+        , Str "flag."
+        ]
+        ( "media/image1.jpeg" , "" )
+    ]
+, Title
+    [ Str "This"
+    , Space
+    , Str "is"
+    , Space
+    , Str "a"
+    , Space
+    , Str "title"
+    ]
+, Subtitle
+    [ Str "This"
+    , Space
+    , Str "is"
+    , Space
+    , Str "a"
+    , Space
+    , Str "subtitle"
+    ]
+, Header
+    1
+    ( "this-is-a-heading-1" , [] , [] )
+    [ Str "This"
+    , Space
+    , Str "is"
+    , Space
+    , Str "a"
+    , Space
+    , Str "heading"
+    , Space
+    , Str "1"
+    ]
+, Para
+    [ Str "This"
+    , Space
+    , Str "is"
+    , Space
+    , Str "some"
+    , Space
+    , Str "text."
+    ]
+, Header
+    2
+    ( "this-is-a-heading-2" , [] , [] )
+    [ Str "This"
+    , Space
+    , Str "is"
+    , Space
+    , Str "a"
+    , Space
+    , Str "heading"
+    , Space
+    , Str "2"
+    ]
+, Para
+    [ Str "This"
+    , Space
+    , Str "is"
+    , Space
+    , Str "also"
+    , Space
+    , Str "some"
+    , Space
+    , Str "text."
+    ]
+]