aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-03-07 14:21:31 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-03-07 14:24:16 +0300
commit4d2bf177fc8e41d385631c1d1abfe7943680982e (patch)
treeffd42f6f8154e5af461f91e725f3012791ed4e34 /test/Tests/Readers
parent54a6b75510d3f8bd872b97189ec7fa94bdc6fb30 (diff)
downloadpandoc-4d2bf177fc8e41d385631c1d1abfe7943680982e.tar.gz
Muse reader: do not produce empty Str element for unindented verse lines
Diffstat (limited to 'test/Tests/Readers')
-rw-r--r--test/Tests/Readers/Muse.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 508d79e18..9fa79234b 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -296,6 +296,7 @@ tests =
]
]
, "Verse in list" =: " - > foo" =?> bulletList [ lineBlock [ "foo" ] ]
+ , "Verse line starting with emphasis" =: "> *foo* bar" =?> lineBlock [ emph "foo" <> text " bar" ]
, "Multiline verse in list" =:
T.unlines [ " - > foo"
, " > bar"