From b7d8930dc097defcae754120a4fa0d6727c9b265 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 29 Jan 2018 12:54:43 +0300
Subject: Muse writer: escape nonbreaking space ("~~")

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

(limited to 'test/Tests')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 51b811fa3..fda5c7c9e 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -251,6 +251,7 @@ tests = [ testGroup "block elements"
             ]
           , "horizontal rule" =: horizontalRule =?> "----"
           , "escape horizontal rule" =: para (text "----") =?> "<verbatim>----</verbatim>"
+          , "escape nonbreaking space" =: 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