From 87dda2109d01098dcf41c01559d3e91e2627cd10 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Thu, 5 Apr 2018 19:48:39 +0300
Subject: Muse writer: escape horizontal rule only if at the beginning of the
 line

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

(limited to 'test/Tests/Writers')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 33ba2b1fb..115a00f83 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -259,7 +259,9 @@ tests = [ testGroup "block elements"
                       ]
             ]
           , "horizontal rule" =: horizontalRule =?> "----"
-          , "escape horizontal rule" =: para (text "----") =?> "<verbatim>----</verbatim>"
+          , "escape horizontal rule" =: para (text "----") =?> "<verbatim></verbatim>----"
+          , "escape long horizontal rule" =: para (text "----------") =?> "<verbatim></verbatim>----------"
+          , "don't escape horizontal inside paragraph" =: para (text "foo ---- bar") =?> "foo ---- bar"
           , "escape nonbreaking space" =: para (text "~~") =?> "<verbatim>~~</verbatim>"
           , testGroup "tables"
             [ "table without header" =:
-- 
cgit v1.2.3