From 454062eccdcc0047e6134bdd4d86c2debb0b3ce7 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 22 Nov 2017 16:01:57 +0300
Subject: Muse writer: escape hash symbol

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

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index a19f2f57e..562cccfe5 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -279,6 +279,8 @@ tests = [ testGroup "block elements"
                =?> "<verbatim>foo<</verbatim><verbatim>/verbatim>bar</verbatim>"
             , "escape pipe to avoid accidental tables" =: str "foo | bar"
                =?> "<verbatim>foo | bar</verbatim>"
+            , "escape hash to avoid accidental anchors" =: text "#foo bar"
+              =?> "<verbatim>#foo</verbatim> bar"
             , "escape definition list markers" =: str "::" =?> "<verbatim>::</verbatim>"
             -- We don't want colons to be escaped if they can't be confused
             -- with definition list item markers.
diff --git a/test/writer.muse b/test/writer.muse
index 6c9dd9869..db34a2733 100644
--- a/test/writer.muse
+++ b/test/writer.muse
@@ -589,7 +589,7 @@ Right paren: )
 
 Greater-than: <verbatim>></verbatim>
 
-Hash: #
+Hash: <verbatim>#</verbatim>
 
 Period: .
 
-- 
cgit v1.2.3