aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2015-01-21 13:38:04 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2015-01-21 13:41:16 -0500
commite88119f2d144dc4a1463b0c451f11fdc6becc4c7 (patch)
tree0473873b3a8f7cbadea94d87ac8cd5d9d2d4e080
parenteb11c61182032129d7f4824de2afff61b662b9db (diff)
downloadpandoc-e88119f2d144dc4a1463b0c451f11fdc6becc4c7.tar.gz
Docx Reader: Add test for VML images.
Since images are often visually (not structurally) placed on the page, people might not always get the results they're looking for here.
-rw-r--r--tests/Tests/Readers/Docx.hs4
-rw-r--r--tests/docx/image_vml.docxbin0 -> 23559 bytes
-rw-r--r--tests/docx/image_vml.native4
3 files changed, 8 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs
index 2963c34da..73bfcd046 100644
--- a/tests/Tests/Readers/Docx.hs
+++ b/tests/Tests/Readers/Docx.hs
@@ -114,6 +114,10 @@ tests = [ testGroup "inlines"
"docx/image.docx"
"docx/image_no_embed.native"
, testCompare
+ "VML image"
+ "docx/image_vml.docx"
+ "docx/image_vml.native"
+ , testCompare
"inline image in links"
"docx/inline_images.docx"
"docx/inline_images.native"
diff --git a/tests/docx/image_vml.docx b/tests/docx/image_vml.docx
new file mode 100644
index 000000000..9e4018e00
--- /dev/null
+++ b/tests/docx/image_vml.docx
Binary files differ
diff --git a/tests/docx/image_vml.native b/tests/docx/image_vml.native
new file mode 100644
index 000000000..8c5450a19
--- /dev/null
+++ b/tests/docx/image_vml.native
@@ -0,0 +1,4 @@
+[Header 1 ("vml-image",[],[]) [Strong [Str "VML",Space,Str "Image"]]
+,BlockQuote
+ [Para [Str "It",Space,Str "should",Space,Str "follow",Space,Str "below:"]
+ ,Para [Image [] ("media/image4.jpeg","")]]]