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