From c899b4e89dcd61f91f7383e2a81a13ef0da080b8 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 11 Sep 2018 03:50:59 +0300
Subject: Muse writer: escape list markers in the beginning of notes

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

(limited to 'test/Tests/Writers/Muse.hs')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 776884760..7821f4e96 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -348,6 +348,12 @@ tests = [ testGroup "block elements"
                       , ""
                       , "   <verbatim></verbatim>- bar"
                       ]
+            , "escape - inside a note" =:
+              note (para (text "- foo")) =?>
+              unlines [ "[1]"
+                      , ""
+                      , "[1] <verbatim></verbatim>- foo"
+                      ]
             , "escape ; to avoid accidental comments" =: text "; foo" =?> "<verbatim></verbatim>; foo"
             , "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"
-- 
cgit v1.2.3