From 5101f4324b08d6b7589a3a6a60eb4dc9b148e879 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 25 Dec 2018 15:23:02 +0300
Subject: [PATCH] Muse reader tests: test #cover directive
---
test/Tests/Readers/Muse.hs | 5 +++++
1 file changed, 5 insertions(+)
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" =: