From 71776661cd0ceceb896ce668b99f1df373f6e1b0 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 16 Sep 2018 20:59:59 +0300
Subject: Muse writer: replace newlines in strings with spaces

---
 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 614e9dbc6..f7287d57d 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -375,6 +375,7 @@ tests = [ testGroup "block elements"
             , "escape ; after softbreak" =: text "foo" <> softbreak <> text "; bar" =?> "foo\n<verbatim></verbatim>; bar"
             , "escape ; after linebreak" =: text "foo" <> linebreak <> text "; bar" =?> "foo<br>\n<verbatim></verbatim>; bar"
             , "do not escape ; inside paragraph" =: text "foo ; bar" =?> "foo ; bar"
+            , "escape newlines" =: str "foo\nbar" =?> "foo bar"
             ]
           , testGroup "emphasis"
             [ "emphasis" =: emph (text "foo") =?> "*foo*"
-- 
cgit v1.2.3