summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2015-02-13 09:08:07 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2015-02-13 09:08:07 -0500
commit616e211f366a5252a105f2ef6e5c7c824874ca8b (patch)
tree86b0abccc9958bd7aaec86ca9ddbd4c183fc8bfe /tests
parent24fd0ad04d2f057f0cc035bfcdfb98c07ad3072a (diff)
Docx reader: test lists in table cells.
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Readers/Docx.hs4
-rw-r--r--tests/docx/table_with_list_cell.docxbin0 -> 32615 bytes
-rw-r--r--tests/docx/table_with_list_cell.native11
3 files changed, 15 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs
index 73bfcd046..d7278b7c2 100644
--- a/tests/Tests/Readers/Docx.hs
+++ b/tests/Tests/Readers/Docx.hs
@@ -188,6 +188,10 @@ tests = [ testGroup "inlines"
"docx/tables.docx"
"docx/tables.native"
, testCompare
+ "tables with lists in cells"
+ "docx/table_with_list_cell.docx"
+ "docx/table_with_list_cell.native"
+ , testCompare
"code block"
"docx/codeblock.docx"
"docx/codeblock.native"
diff --git a/tests/docx/table_with_list_cell.docx b/tests/docx/table_with_list_cell.docx
new file mode 100644
index 000000000..1db065770
--- /dev/null
+++ b/tests/docx/table_with_list_cell.docx
Binary files differ
diff --git a/tests/docx/table_with_list_cell.native b/tests/docx/table_with_list_cell.native
new file mode 100644
index 000000000..81bb15a1e
--- /dev/null
+++ b/tests/docx/table_with_list_cell.native
@@ -0,0 +1,11 @@
+[Table [] [AlignDefault,AlignDefault] [0.0,0.0]
+ [[Plain [Str "Cell",Space,Str "with",Space,Str "text"]]
+ ,[Plain [Str "Cell",Space,Str "with",Space,Str "text"]]]
+ [[[BulletList
+ [[Para [Str "Cell",Space,Str "with"]]
+ ,[Para [Str "A"]]
+ ,[Para [Str "Bullet",Space,Str "list"]]]]
+ ,[OrderedList (1,Decimal,Period)
+ [[Para [Str "Cell",Space,Str "with"]]
+ ,[Para [Str "A"]]
+ ,[Para [Str "Numbered",Space,Str "list."]]]]]]]