diff options
| -rw-r--r-- | tests/Tests/Readers/Docx.hs | 4 | ||||
| -rw-r--r-- | tests/docx/image_vml.docx | bin | 0 -> 23559 bytes | |||
| -rw-r--r-- | tests/docx/image_vml.native | 4 |
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 Binary files differnew file mode 100644 index 000000000..9e4018e00 --- /dev/null +++ b/tests/docx/image_vml.docx 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","")]]] |