1 files changed, 9 insertions, 0 deletions
diff --git a/test/Tests/Writers/RST.hs b/test/Tests/Writers/RST.hs
index 4c0a926bb..b8778f995 100644
--- a/test/Tests/Writers/RST.hs
+++ b/test/Tests/Writers/RST.hs
@@ -50,6 +50,15 @@ tests = [ testGroup "rubrics"
               , ""
               , "    quoted"]
           ]
+        , testGroup "spaces are stripped within inlines"
+          -- pandoc issue 4327 "The text within inline markup may not
+          -- begin or end with whitespace"
+          -- http://docutils.sourceforge.net/docs/ref/rst/restructuredtext.html#inline-markup
+          [ "multiple" =:
+            strong (space <> str "text" <> space <> space) =?> "**text**"
+          , "single" =:
+            strong (space) =?> "****"
+          ]
         , testGroup "headings"
           [ "normal heading" =:
               header 1 (text "foo") =?>