Muse reader: test metadata parsing
commit2cdb8fe2e65aa13f91c9decd4e6cad97e87cc402
authorAlexander Krotov <ilabdsf@gmail.com>
dateTue 26 Sep 2017, 19:31 (9 years ago)
parent3fb3af7
src/Text/Pandoc/Readers/Muse.hs+1−2
@@ -150,8 +150,7 @@ parseDirective = do
150150 key <- many letter
151151 space
152152 spaces
153− raw <- many $ noneOf "\n"
154− newline
153+ raw <- manyTill anyChar eol
155154 value <- parseFromString (trimInlinesF . mconcat <$> many inline) raw
156155 return (key, value)
157156
test/Tests/Readers/Muse.hs+7
@@ -689,4 +689,11 @@ tests =
689689 , para "Third"
690690 ])
691691 ]
692+ , testGroup "Meta"
693+ [ "Title" =:
694+ "#title Document title" =?>
695+ let titleInline = toList $ "Document title"
696+ meta = setMeta "title" (MetaInlines titleInline) $ nullMeta
697+ in Pandoc meta mempty
698+ ]
692699 ]