git.iko.soy/typeable/pandoc
on master help sign in
Docx reader tests: add tests for normalization deep in blocks.
commited43513087b514a5240fde04784dbf8709182513 authorJesse Rosenthal <jrosenthal@jhu.edu> dateSun 22 Jun 2014, 01:58 (12 years ago) parentb3df3a3
3 files changed+10
tests/Tests/Readers/Docx.hs+4 tests/docx.deep_normalize.docx tests/docx.deep_normalize.native+6
tests/Tests/Readers/Docx.hs+4
@@ -78,6 +78,10 @@ tests = [ testGroup "inlines"
7878 "normalizing inlines"
7979 "docx.normalize.docx"
8080 "docx.normalize.native"
81+ , testCompare
82+ "normalizing inlines deep inside blocks"
83+ "docx.deep_normalize.docx"
84+ "docx.deep_normalize.native"
8185 ]
8286 , testGroup "blocks"
8387 [ testCompare
tests/docx.deep_normalize.docxnew file

Binary file not shown.

tests/docx.deep_normalize.nativenew file+6
@@ -0,0 +1,6 @@
1+[OrderedList (1,Decimal,OneParen)
2+ [[Para [Str "This",Space,Str "is",Space,Str "at",Space,Str "the",Space,Str "first",Space,Str "level"]
3+ ,OrderedList (1,LowerAlpha,DefaultDelim)
4+ [[Para [Str "This",Space,Str "is",Space,Str "at",Space,Str "the",Space,Str "second",Space,Str "level"]
5+ ,OrderedList (1,LowerRoman,DefaultDelim)
6+ [[Para [Str "This",Space,Str "is",Space,Emph [Str "at",Space,Strong [Str "the",Space,Str "third",Space,Str "level"],Str ",",Space,Str "and",Space,Str "I",Space,Str "want",Space,Str "to"],Space,Str "test",Space,Str "normalization",Space,Str "here."]]]]]]]]