From df4cb20f297b4a33e0520e62ce3d5ac08bf2a8ee Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 12 Nov 2017 18:08:11 +0300
Subject: Muse reader: accept Emacs Muse definition lists

Emacs Muse does not require indentation.
---
 test/Tests/Readers/Muse.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'test')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 1469b01a0..29cef09ca 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -16,6 +16,10 @@ muse = purely $ \s -> do
   setOutputFile (Just "out")
   readMuse def s
 
+emacsMuse :: Text -> Pandoc
+emacsMuse = purely $ readMuse def { readerExtensions =
+              enableExtension Ext_emacs pandocExtensions }
+
 infix 4 =:
 (=:) :: ToString c
      => String -> (Text, c) -> TestTree
@@ -622,6 +626,14 @@ tests =
           , "Foo :: bar"
           ] =?>
         para "First :: second Foo :: bar"
+      , test emacsMuse "Emacs Muse definition list"
+        (T.unlines
+          [ "First :: second"
+          , "Foo :: bar"
+          ] =?>
+        definitionList [ ("First", [ para "second" ])
+                       , ("Foo", [ para "bar" ])
+                       ])
       , "Definition list" =:
         T.unlines
           [ " First :: second"
-- 
cgit v1.2.3