From 00b2b0feb660bbe4ec50b3a33131e75cf0341e4c Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 11 Sep 2018 01:36:11 +0300
Subject: Muse writer: normalize inline list before testing if tags should be
 used

---
 test/Tests/Writers/Muse.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index c747578bf..776884760 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -366,6 +366,7 @@ tests = [ testGroup "block elements"
             , "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>*"
+            , "emphasized space between empty strings" =: emph (str "" <> space <> str "") =?> "<em> </em>"
             , "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***"
-- 
cgit v1.2.3