aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers/Muse.hs
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2019-05-25 19:13:28 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2019-05-25 19:17:16 +0300
commitf807f5b3833e841d9e6b831acbe50f3be8e42881 (patch)
tree5fb9849e69235bb68fce129f5758ca954caac00d /test/Tests/Readers/Muse.hs
parent751427745417c7702a1546b1368db297a44b21e0 (diff)
downloadpandoc-f807f5b3833e841d9e6b831acbe50f3be8e42881.tar.gz
Muse reader: allow images inside link descriptions
Diffstat (limited to 'test/Tests/Readers/Muse.hs')
-rw-r--r--test/Tests/Readers/Muse.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index e864cb46e..51ccbc1da 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -289,6 +289,9 @@ tests =
, "No footnotes inside links" =:
"[[https://amusewiki.org/][foo[1]]" =?>
para (link "https://amusewiki.org/" "" (text "foo[1"))
+ , "Image inside link" =:
+ "[[https://amusewiki.org/][Image [[image.png][with it's own description]] inside link description]]" =?>
+ para (link "https://amusewiki.org/" "" (text "Image " <> (image "image.png" "" (text "with it's own description")) <> text " inside link description"))
]
, testGroup "Literal"