summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorNikolay Yakimov <root@livid.pp.ru>2015-03-08 03:59:48 +0300
committerNikolay Yakimov <root@livid.pp.ru>2015-03-08 03:59:48 +0300
commita82dedf1ff1b6fe345640843dad653386a8f9bc7 (patch)
tree98b61585c294ff5bf229d685e3e33e22600d1200 /tests
parentae07d5ed490b1d2f8cbb943a8d876a798d57f470 (diff)
Lists test
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Writers/Docx.hs8
-rw-r--r--tests/docx/lists_writer.native17
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."]]]]