diff options
| -rw-r--r-- | tests/Tests/Writers/Docx.hs | 8 | ||||
| -rw-r--r-- | tests/docx/lists_writer.native | 17 |
2 files changed, 21 insertions, 4 deletions
diff --git a/tests/Tests/Writers/Docx.hs b/tests/Tests/Writers/Docx.hs index 4a199755d..a22daadb8 100644 --- a/tests/Tests/Writers/Docx.hs +++ b/tests/Tests/Writers/Docx.hs @@ -83,10 +83,10 @@ tests = [ testGroup "inlines" , testCompare "i18n blocks (headers and blockquotes)" "docx/i18n_blocks.native" - -- some level problems, look into that - -- , testCompare - -- "lists" - -- "docx/lists.native" + -- Continuation does not survive round-trip + , testCompare + "lists" + "docx/lists_writer.native" , testCompare "definition lists" "docx/definition_list.native" diff --git a/tests/docx/lists_writer.native b/tests/docx/lists_writer.native new file mode 100644 index 000000000..4c44ea603 --- /dev/null +++ b/tests/docx/lists_writer.native @@ -0,0 +1,17 @@ +[Header 2 ("some-nested-lists",[],[]) [Str "Some",Space,Str "nested",Space,Str "lists"] +,OrderedList (1,Decimal,Period) + [[Para [Str "one"]] + ,[Para [Str "two"] + ,OrderedList (1,LowerAlpha,DefaultDelim) + [[Para [Str "a"]] + ,[Para [Str "b"]]]]] +,BulletList + [[Para [Str "one"]] + ,[Para [Str "two"] + ,BulletList + [[Para [Str "three"] + ,BulletList + [[Para [Str "four"]]]]]] + ,[Para [Str "Same",Space,Str "list"]]] +,BulletList + [[Para [Str "Different",Space,Str "list",Space,Str "adjacent",Space,Str "to",Space,Str "the",Space,Str "one",Space,Str "above."]]]] |