Org reader: Add test for image links
Tests for image links with non-image targets, as introduced in
commit 2ca5101.
commit58719551698dbb0f924101f128c7d0fafc3fd3d8
authorHans-Peter Deifel <hpdeifel@gmx.de>
dateThu 26 Feb 2015, 13:11 (12 years ago)
parent2ca5101
tests/Tests/Readers/Org.hs+4
@@ -212,6 +212,10 @@ tests =
212212 "[[sunset.png][dusk.svg]]" =?>
213213 (para $ link "sunset.png" "" (image "dusk.svg" "" ""))
214214
215+ , "Image link with non-image target" =:
216+ "[[http://example.com][logo.png]]" =?>
217+ (para $ link "http://example.com" "" (image "logo.png" "" ""))
218+
215219 , "Plain link" =:
216220 "Posts on http://zeitlens.com/ can be funny at times." =?>
217221 (para $ spcSep [ "Posts", "on"