diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index 7e3f1979e..127dfd73c 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -188,6 +188,10 @@ tests = [ testGroup "inlines" "footnotes and endnotes" "docx/notes.docx" "docx/notes.native" + , testCompare + "links in footnotes and endnotes" + "docx/link_in_notes.docx" + "docx/link_in_notes.native" , testCompare "blockquotes (parsing indent as blockquote)" "docx/block_quotes.docx" diff --git a/tests/docx/link_in_notes.docx b/tests/docx/link_in_notes.docx new file mode 100644 index 000000000..f3398f438 Binary files /dev/null and b/tests/docx/link_in_notes.docx differ diff --git a/tests/docx/link_in_notes.native b/tests/docx/link_in_notes.native new file mode 100644 index 000000000..bb2bbe8a2 --- /dev/null +++ b/tests/docx/link_in_notes.native @@ -0,0 +1 @@ +[Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "test",Note [Para [Link [Str "http://wikipedia.org/"] ("http://wikipedia.org/","")]],Str "."]]