Muse reader: accept Emacs Muse definition lists

Emacs Muse does not require indentation.

1 files changed, 12 insertions, 0 deletions

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"