diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-07 15:34:49 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-07 15:34:49 -0400 |
| commit | 98d14b2b2a20111d68bdfbaf358da41537ea71c9 (patch) | |
| tree | ed4cc21befb33021fa94376a47fd4e20ba5ecaca /tests | |
| parent | 7bd7d4d476f5091d39bac11d53588a80d4bef9ee (diff) | |
Docx reader: Test inline image code.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Readers/Docx.hs | 6 | ||||
| -rw-r--r-- | tests/docx.inline_images.docx | bin | 0 -> 37784 bytes | |||
| -rw-r--r-- | tests/docx.inline_images.native | 2 |
3 files changed, 7 insertions, 1 deletions
diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index efc520dba..c310cc8d7 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -107,10 +107,14 @@ 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" "docx.unicode.native" diff --git a/tests/docx.inline_images.docx b/tests/docx.inline_images.docx Binary files differnew file mode 100644 index 000000000..6288f66ff --- /dev/null +++ b/tests/docx.inline_images.docx diff --git a/tests/docx.inline_images.native b/tests/docx.inline_images.native new file mode 100644 index 000000000..f962f5c09 --- /dev/null +++ b/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."]] |