diff options
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 26720d8c5..87cedfff2 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -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" =: |