From 1b1b6f02d59626fac591e4ed4a2286c6effca6d2 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 7 Mar 2018 15:19:36 +0300
Subject: Muse writer: escape "-" to avoid creating bullet lists

---
 test/Tests/Writers/Muse.hs | 9 +++++++++
 test/writer.muse           | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 7aec8122a..ab5eaa205 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -301,6 +301,15 @@ tests = [ testGroup "block elements"
             -- We don't want colons to be escaped if they can't be confused
             -- with definition list item markers.
             , "do not escape colon" =: str ":" =?> ":"
+            , "escape - to avoid accidental unordered lists" =: text " - foo" =?> " <verbatim>-</verbatim> foo"
+            , "escape - inside a list to avoid accidental nested unordered lists" =:
+              bulletList [ (para $ text "foo") <>
+                           (para $ text "- bar")
+                         ] =?>
+              unlines [ " - foo"
+                      , ""
+                      , "   <verbatim>-</verbatim> bar"
+                      ]
             ]
           , testGroup "emphasis"
             [ "emph" =: emph (text "foo") =?> "<em>foo</em>"
diff --git a/test/writer.muse b/test/writer.muse
index 6cb766955..5db3871a1 100644
--- a/test/writer.muse
+++ b/test/writer.muse
@@ -594,7 +594,7 @@ Bang: !
 
 Plus: +
 
-Minus: -
+Minus: <verbatim>-</verbatim>
 
 ----
 
-- 
cgit v1.2.3