Org reader: Add test for image links

Tests for image links with non-image targets, as introduced in
commit 2ca5101.
This commit is contained in:
Hans-Peter Deifel 2015-02-26 13:11:50 +01:00
parent 2ca5101113
commit 5871955169

View file

@ -212,6 +212,10 @@ tests =
"[[sunset.png][dusk.svg]]" =?>
(para $ link "sunset.png" "" (image "dusk.svg" "" ""))
, "Image link with non-image target" =:
"[[http://example.com][logo.png]]" =?>
(para $ link "http://example.com" "" (image "logo.png" "" ""))
, "Plain link" =:
"Posts on http://zeitlens.com/ can be funny at times." =?>
(para $ spcSep [ "Posts", "on"