From 78c90bd749ae2e4935185aef6de6facc55ad4da0 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Sat, 14 Nov 2015 13:45:29 -0500 Subject: Added test case for links in notes. --- tests/Tests/Readers/Docx.hs | 4 ++++ tests/docx/link_in_notes.docx | Bin 0 -> 27357 bytes tests/docx/link_in_notes.native | 1 + 3 files changed, 5 insertions(+) create mode 100644 tests/docx/link_in_notes.docx create mode 100644 tests/docx/link_in_notes.native 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 "."]] -- cgit v1.2.3