From 29955267722d30708e6acb5425f64cc02c796be0 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Thu, 19 Feb 2015 00:24:04 -0500 Subject: Docx reader: Add tests for new list style parsing. --- tests/Tests/Readers/Docx.hs | 4 ++++ tests/docx/german_styled_lists.docx | Bin 0 -> 43957 bytes tests/docx/german_styled_lists.native | 6 ++++++ 3 files changed, 10 insertions(+) create mode 100644 tests/docx/german_styled_lists.docx create mode 100644 tests/docx/german_styled_lists.native (limited to 'tests') diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index d7278b7c2..724d2fabd 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -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" diff --git a/tests/docx/german_styled_lists.docx b/tests/docx/german_styled_lists.docx new file mode 100644 index 000000000..ce454e9cc Binary files /dev/null and b/tests/docx/german_styled_lists.docx differ diff --git a/tests/docx/german_styled_lists.native b/tests/docx/german_styled_lists.native new file mode 100644 index 000000000..4d5456dfc --- /dev/null +++ b/tests/docx/german_styled_lists.native @@ -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."]]]] -- cgit v1.2.3