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

Docx reader: Add tests for new list style parsing.

Browse source
This commit is contained in:
Jesse Rosenthal 2015-02-19 00:24:04 -05:00
parent a01913b45c
commit 2995526772
3 changed files with 10 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

@ -171,6 +171,10 @@ tests = [ testGroup "inlines"
"definition lists"
"docx/definition_list.docx"
"docx/definition_list.native"
, testCompare
"custom defined lists in styles"
"docx/german_styled_lists.docx"
"docx/german_styled_lists.native"
, testCompare
"footnotes and endnotes"
"docx/notes.docx"

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

Binary file not shown.

6
tests/docx/german_styled_lists.native Normal file
View file

@ -0,0 +1,6 @@
[BulletList
[[Para [Str "One",Space,Str "level",Space,Str "of",Space,Str "the",Space,Str "list."]]
,[Para [Str "Second",Space,Str "level",Space,Str "of",Space,Str "the",Space,Str "list."]
,BulletList
[[Para [Str "Next",Space,Str "level",Space,Str "of",Space,Str "the",Space,Str "list"]]]]
,[Para [Str "Back",Space,Str "to",Space,Str "the",Space,Str "top",Space,Str "level."]]]]