From ed261e58320038601ec37a78cb5fe94f2013ca66 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 4 Dec 2017 15:59:26 +0300
Subject: Muse reader: add underline support in Emacs Muse mode

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

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

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index c0da48586..3a3d7d864 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -10,6 +10,7 @@ import Tests.Helpers
 import Text.Pandoc
 import Text.Pandoc.Arbitrary ()
 import Text.Pandoc.Builder
+import Text.Pandoc.Shared (underlineSpan)
 -- import Text.Pandoc.Walk (walk)
 
 amuse :: Text -> Pandoc
@@ -83,6 +84,9 @@ tests =
           "***strength***" =?>
           para (strong . emph $ "strength")
 
+      , test emacsMuse "Underline"
+        ("_Underline_" =?> para (underlineSpan "Underline"))
+
       , "Superscript tag" =: "<sup>Superscript</sup>" =?> para (superscript "Superscript")
 
       , "Subscript tag" =: "<sub>Subscript</sub>" =?> para (subscript "Subscript")
-- 
cgit v1.2.3