Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Added test case for links in notes.

Browse source
This commit is contained in:
Jesse Rosenthal 2015-11-14 13:45:29 -05:00
parent e5b374e2ca
commit 78c90bd749
3 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tests/Tests/Readers/Docx.hs
View file

@ -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"

BIN
tests/docx/link_in_notes.docx Normal file
View file

Binary file not shown.

1
tests/docx/link_in_notes.native Normal file
View file

@ -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 "."]]