Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse reader tests: test #cover directive

Browse source
This commit is contained in:
Alexander Krotov 2018-12-25 15:23:02 +03:00
parent 39efcedf8a
commit 5101f4324b
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/Tests/Readers/Muse.hs
View file

@ -726,6 +726,11 @@ tests =
Pandoc (setMeta "title" (MetaInlines $ toList "Document title") $
setMeta "notes" (MetaInlines $ toList "First line\nand second line") $
setMeta "author" (MetaInlines $ toList "Name") nullMeta) mempty
, "Amusewiki's #cover is translated to pandoc's #cover-image" =:
"#cover cover.png" =?>
let titleInline = toList "cover.png"
meta = setMeta "cover-image" (MetaInlines titleInline) nullMeta
in Pandoc meta mempty
]
, testGroup "Anchors"
[ "Anchor" =: