aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Writers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-11-13 18:43:46 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-11-13 18:44:56 +0300
commit40796972812fe7a29d04eb430bee704383736221 (patch)
treea2cfd3cb3a9891a768b6c651f57333f6f5c5ac77 /test/Tests/Writers
parent4a950feb8e6ff0f557af5c686d860dc70ca01f42 (diff)
downloadpandoc-40796972812fe7a29d04eb430bee704383736221.tar.gz
Muse writer: output tables with one column as grid tables
Diffstat (limited to 'test/Tests/Writers')
-rw-r--r--test/Tests/Writers/Muse.hs12
1 files changed, 12 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index c6ebac771..6cf718c0b 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -400,6 +400,18 @@ tests = [ testGroup "block elements"
, " Para 2.1 | Para 2.2"
, " |+ Table 1 +|"
]
+ , "table with one column" =:
+ let headers = []
+ rows = [[para "Para 1"]
+ ,[para "Para 2"]]
+ in simpleTable headers rows
+ =?>
+ unlines [ "+--------+"
+ , "| Para 1 |"
+ , "+--------+"
+ , "| Para 2 |"
+ , "+--------+"
+ ]
]
, "div with bullet list" =:
divWith nullAttr (bulletList [para "foo"]) =?>