From 7e42857ed8357bc5b5e9528d9fd09408f27ab4e1 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 22 Nov 2017 00:17:15 +0300
Subject: Muse writer: escape "----" to avoid accidental horizontal rules

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

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

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 7e95ae85e..a19f2f57e 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -236,6 +236,7 @@ tests = [ testGroup "block elements"
                       ]
             ]
           , "horizontal rule" =: horizontalRule =?> "----"
+          , "escape horizontal rule" =: para (text "----") =?> "<verbatim>----</verbatim>"
           , testGroup "tables"
             [ "table without header" =:
               let rows = [[para $ text "Para 1.1", para $ text "Para 1.2"]
-- 
cgit v1.2.3