From 1aac754359d44a96e30e96f61f38c58d6aea29b4 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 11 Sep 2018 14:10:20 +0300
Subject: Muse writer: set envInsideBlock = True when rendering notes

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

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 4cb7618f3..614e9dbc6 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -363,6 +363,13 @@ tests = [ testGroup "block elements"
                       , ""
                       , "[1] <verbatim></verbatim>- foo"
                       ]
+            , "escape - after softbreak in note" =:
+              note (para (str "foo" <> softbreak <> str "- bar")) =?>
+              unlines [ "[1]"
+                      , ""
+                      , "[1] foo"
+                      , "    <verbatim></verbatim>- bar"
+                      ]
             , "escape ; to avoid accidental comments" =: text "; foo" =?> "<verbatim></verbatim>; foo"
             , "escape strings starting with ; and space" =: str "; foo" =?> "<verbatim></verbatim>; foo"
             , "escape ; after softbreak" =: text "foo" <> softbreak <> text "; bar" =?> "foo\n<verbatim></verbatim>; bar"
-- 
cgit v1.2.3