Muse reader: test metadata parsing

src/Text/Pandoc/Readers/Muse.hs

@@ -150,8 +150,7 @@ parseDirective = do
   key <- many letter
   space
   spaces
-  raw <- many $ noneOf "\n"
-  newline
+  raw <- manyTill anyChar eol
   value <- parseFromString (trimInlinesF . mconcat <$> many inline) raw
   return (key, value)
 

test/Tests/Readers/Muse.hs

@@ -689,4 +689,11 @@ tests =
                                                          , para "Third"
                                                          ])
       ]
+  , testGroup "Meta"
+      [ "Title" =:
+        "#title Document title" =?>
+        let titleInline = toList $ "Document title"
+            meta = setMeta "title" (MetaInlines titleInline) $ nullMeta
+        in Pandoc meta mempty
+      ]
   ]