summaryrefslogtreecommitdiff
path: root/tests
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 /tests
parenteb11c61182032129d7f4824de2afff61b662b9db (diff)
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.
Diffstat (limited to 'tests')
-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","")]]]