diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-12-25 15:23:02 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-12-25 15:23:02 +0300 |
| commit | 5101f4324b08d6b7589a3a6a60eb4dc9b148e879 (patch) | |
| tree | 0ce63404a293860184335bd3aa6fa74f61e833eb /test/Tests/Readers/Muse.hs | |
| parent | 39efcedf8a201e2fa20802ce15647454535859c7 (diff) | |
| download | pandoc-5101f4324b08d6b7589a3a6a60eb4dc9b148e879.tar.gz | |
Muse reader tests: test #cover directive
Diffstat (limited to 'test/Tests/Readers/Muse.hs')
| -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" =: |