Muse reader: test that links inside image descriptions work

This commit is contained in:
Alexander Krotov 2019-06-09 14:08:37 +03:00
parent 3026266ced
commit 814c3af4df

View file

@ -292,6 +292,9 @@ tests =
, "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"))
, "Link inside image description" =:
"[[image.jpg][Image from [[https://amusewiki.org/]]]]" =?>
para (image "image.jpg" "" (text "Image from " <> link "https://amusewiki.org/" "" (str "https://amusewiki.org/")))
]
, testGroup "Literal"