aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Writers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-09-11 00:38:55 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-09-11 00:39:37 +0300
commitc2b97c4b8026694d9c59d7b9f6d333d204f669ce (patch)
treec0a1275fcd3be3b14a0692df16878e1710ab0620 /test/Tests/Writers
parent7b52d43877d0351dcf0fd645127867a43978bc08 (diff)
downloadpandoc-c2b97c4b8026694d9c59d7b9f6d333d204f669ce.tar.gz
Muse writer: use tags instead of lightweight markup for empty strings
Diffstat (limited to 'test/Tests/Writers')
-rw-r--r--test/Tests/Writers/Muse.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 29f771cf5..c747578bf 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -362,6 +362,10 @@ tests = [ testGroup "block elements"
, "empty strong" =: strong mempty =?> "<strong></strong>"
, "empty strong emphasis" =: strong (emph mempty) =?> "**<em></em>**"
, "empty emphasized strong" =: emph (strong mempty) =?> "*<strong></strong>*"
+ , "emphasized empty string" =: emph (str "") =?> "<em></em>"
+ , "strong empty string" =: strong (str "") =?> "<strong></strong>"
+ , "strong emphasized empty string" =: strong (emph (str "")) =?> "**<em></em>**"
+ , "emphasized strong empty string" =: emph (strong (str "")) =?> "*<strong></strong>*"
, "strong" =: strong (text "foo") =?> "**foo**"
, "strong inside word" =: text "foo" <> strong (text "bar") <> text "baz" =?> "foo<strong>bar</strong>baz"
, "strong emphasis" =: strong (emph (text "foo")) =?> "***foo***"