git.iko.soy/typeable/pandoc
on master help sign in
Docx writer: Add tests for list continuation.
4405336Jesse Rosenthal
test/Tests/Readers/Docx.hs+8
@@ -205,6 +205,14 @@ tests = [ testGroup "inlines"
205 "lists"
205 "lists"
206 "docx/lists.docx"
206 "docx/lists.docx"
207 "docx/lists.native"
207 "docx/lists.native"
208+ , testCompare
209+ "lists continuing after interruption"
210+ "docx/lists_continuing.docx"
211+ "docx/lists_continuing.native"
212+ , testCompare
213+ "lists restarting after interruption"
214+ "docx/lists_restarting.docx"
215+ "docx/lists_restarting.native"
208 , testCompare
216 , testCompare
209 "definition lists"
217 "definition lists"
210 "docx/definition_list.docx"
218 "docx/definition_list.docx"
test/docx/lists_continuing.docxnew file

Binary file not shown.

test/docx/lists_continuing.nativenew file+7
@@ -0,0 +1,7 @@
1+[OrderedList (1,Decimal,Period)
2+ [[Para [Str "Foo"]]
3+ ,[Para [Str "Bar"]]
4+ ,[Para [Str "Baz"]]]
5+,Para [Str "Interruption."]
6+,OrderedList (4,Decimal,Period)
7+ [[Para [Str "Bop"]]]]
test/docx/lists_restarting.docxnew file

Binary file not shown.

test/docx/lists_restarting.nativenew file+8
@@ -0,0 +1,8 @@
1+[OrderedList (2,Decimal,Period)
2+ [[Para [Str "Foo"]]
3+ ,[Para [Str "Bar"]]
4+ ,[Para [Str "Baz"]]]
5+,BlockQuote
6+ [Para [Str "Interruption"]]
7+,OrderedList (1,Decimal,Period)
8+ [[Para [Str "Bop."]]]]