Docx reader: Test inline image code.

pandoc.cabal

@@ -178,6 +178,7 @@ Extra-Source-Files:
                  tests/docx.hanging_indent.docx,
                  tests/docx.headers.docx,
                  tests/docx.image.docx,
+                 tests/docx.inline_images.docx,
                  tests/docx.inline_code.docx,
                  tests/docx.inline_formatting.docx,
                  tests/docx.links.docx,

tests/Tests/Readers/Docx.hs

@@ -107,9 +107,13 @@ tests = [ testGroup "inlines"
             "docx.links.docx"
             "docx.links.native"
           , testCompare
-            "inline image with reference output"
+            "inline image"
             "docx.image.docx"
             "docx.image_no_embed.native"
+          , testCompare
+            "inline image in links"
+            "docx.inline_images.docx"
+            "docx.inline_images.native"
           , testCompare
             "handling unicode input"
             "docx.unicode.docx"

tests/docx.inline_images.native

@@ -0,0 +1,2 @@
+[Para [Str "This",Space,Str "picture",Space,Image [] ("media/image1.jpg",""),Space,Str "is",Space,Str "an",Space,Str "identicon."]
+,Para [Str "Here",Space,Str "is",Space,Link [Str "one",Space,Image [] ("media/image2.jpg",""),Space,Str "that"] ("http://www.google.com",""),Space,Str "links."]]