git.iko.soy/typeable/pandoc
on master help sign in
Docx reader: add failing tests for inline code and code blocks.
commit21295c5ab5567126c3112b9417f68c76b4f6debf authorJesse Rosenthal <jrosenthal@jhu.edu> dateTue 24 Jun 2014, 10:33 (12 years ago) parentfc4e6b3
5 files changed+13
tests/Tests/Readers/Docx.hs+9 tests/docx.codeblock.docx tests/docx.codeblock.native+3 tests/docx.inline_code.docx tests/docx.inline_code.native+1
tests/Tests/Readers/Docx.hs+9
@@ -86,6 +86,10 @@ tests = [ testGroup "inlines"
8686 "move trailing spaces outside of formatting"
8787 "docx.trailing_spaces_in_formatting.docx"
8888 "docx.trailing_spaces_in_formatting.native"
89+ , testCompare
90+ "inline code (with VerbatimChar style)"
91+ "docx.inline_code.docx"
92+ "docx.inline_code.native"
8993 ]
9094 , testGroup "blocks"
9195 [ testCompare
@@ -108,6 +112,11 @@ tests = [ testGroup "inlines"
108112 "tables"
109113 "docx.tables.docx"
110114 "docx.tables.native"
115+ , testCompare
116+ "code block"
117+ "docx.codeblock.docx"
118+ "docx.codeblock.native"
119+
111120 ]
112121 ]
113122
tests/docx.codeblock.docxnew file

Binary file not shown.

tests/docx.codeblock.nativenew file+3
@@ -0,0 +1,3 @@
1+[Para [Str "This",Space,Str "is",Space,Str "some",Space,Str "code:"]
2+,CodeBlock ("",[],[]) "readDocx :: ReaderOptions\n -> B.ByteString\n -> Pandoc"
3+,Para [Str "from",Space,Str "the",Space,Str "beginning",Space,Str "of",Space,Str "the",Space,Str "docx",Space,Str "reader."]]
tests/docx.inline_code.docxnew file

Binary file not shown.

tests/docx.inline_code.nativenew file+1
@@ -0,0 +1 @@
1+[Para [Str "This",Space,Str "is",Space,Str "an",Space,Str "example",Space,Str "of",Space,Code ("",[],[]) "inline code",Space,Str "with",Space,Str "three",Space,Str "spaces."]]