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