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: Muse reader tests: test #cover directive

---
 test/Tests/Readers/Muse.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'test')

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" =:
-- 
cgit v1.2.3