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

Docx reader: Add test cases for dummy list items.

Browse source
This commit is contained in:
Jesse Rosenthal 2015-11-18 13:15:23 -05:00
parent 5527465c77
commit 186a955bd0
5 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -184,6 +184,14 @@ tests = [ testGroup "inlines"
"custom defined lists in styles"
"docx/german_styled_lists.docx"
"docx/german_styled_lists.native"
, testCompare
"user deletes bullet after list item (=> part of item par)"
"docx/dummy_item_after_list_item.docx"
"docx/dummy_item_after_list_item.native"
, testCompare
"user deletes bullet after par (=> new par)"
"docx/dummy_item_after_paragraph.docx"
"docx/dummy_item_after_paragraph.native"
, testCompare
"footnotes and endnotes"
"docx/notes.docx"

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

Binary file not shown.

3
tests/docx/dummy_item_after_list_item.native Normal file
View file

@ -0,0 +1,3 @@
[OrderedList (1,Decimal,Period)
[[Para [Str "One"]
,Para [Str "Two",LineBreak,LineBreak,Str "Three"]]]]

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

Binary file not shown.

3
tests/docx/dummy_item_after_paragraph.native Normal file
View file

@ -0,0 +1,3 @@
[Para [Str "First",Space,Str "bullet",Space,Str "point",Space,Str "created",Space,Str "and",Space,Str "then",Space,Str "deleted"]
,Para [Str "A",Space,Str "normal",Space,Str "paragraph"]
,Para [Str "First",Space,Str "bullet",Space,Str "point",Space,Str "created",Space,Str "and",Space,Str "then",Space,Str "deleted",Space,Str "after",Space,Str "the",Space,Str "normal",Space,Str "paragraph"]]