aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-11-22 18:49:07 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2017-11-22 18:49:07 +0300
commit75e2a1104cda760a939ca12258c0355844f70a31 (patch)
treee63e5d943ffd61e7f8b65fbb6acc6c1a3e29e304 /test
parent0b63ac2db1924e487aa83c6b2683b16e64a4d566 (diff)
downloadpandoc-75e2a1104cda760a939ca12258c0355844f70a31.tar.gz
Muse reader: allow list items to be empty
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/Muse.hs21
1 files changed, 21 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index fe75135f7..65665c1d2 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -566,6 +566,27 @@ tests =
, para "Item2"
, para "Item3"
]
+ , "Bullet list with empty items" =:
+ T.unlines
+ [ " -"
+ , ""
+ , " - Item2"
+ ] =?>
+ bulletList [ mempty
+ , para "Item2"
+ ]
+ , "Ordered list with empty items" =:
+ T.unlines
+ [ " 1."
+ , ""
+ , " 2."
+ , ""
+ , " 3. Item3"
+ ] =?>
+ orderedListWith (1, Decimal, Period) [ mempty
+ , mempty
+ , para "Item3"
+ ]
, testGroup "Nested lists"
[ "Nested list" =:
T.unlines