From 6c17117ef2e0ef6082ab55cf67256e59ea93ddf8 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 21 Nov 2017 19:19:49 +0300
Subject: Muse reader: add inline <literal> support

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

(limited to 'test')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index e260e4bea..0202dfb6d 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -149,6 +149,15 @@ tests =
         , "No implicit links" =: "http://example.org/index.php?action=view&id=1"
                =?> para "http://example.org/index.php?action=view&id=1"
         ]
+
+      , testGroup "Literal"
+        [ test emacsMuse "Inline literal"
+          ("Foo<literal style=\"html\">lit</literal>bar" =?>
+          para (text "Foo" <> rawInline "html" "lit" <> text "bar"))
+        , "No literal in Text::Amuse" =:
+          "Foo<literal style=\"html\">lit</literal>bar" =?>
+          para "Foo<literal style=\"html\">lit</literal>bar"
+        ]
       ]
 
   , testGroup "Blocks"
-- 
cgit v1.2.3