git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: test metadata parsing
2cdb8feAlexander Krotov
src/Text/Pandoc/Readers/Muse.hs+1−2
compare with master
unifiedsplit
@@ -150,8 +150,7 @@ parseDirective = do
150 key <- many letter
150 key <- many letter
151 space
151 space
152 spaces
152 spaces
153− raw <- many $ noneOf "\n"
153+ raw <- manyTill anyChar eol
154− newline
155 value <- parseFromString (trimInlinesF . mconcat <$> many inline) raw
154 value <- parseFromString (trimInlinesF . mconcat <$> many inline) raw
156 return (key, value)
155 return (key, value)
157
156
test/Tests/Readers/Muse.hs+7
@@ -689,4 +689,11 @@ tests =
689 , para "Third"
689 , para "Third"
690 ])
690 ])
691 ]
691 ]
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+ ]
692 ]
699 ]