aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHans-Peter Deifel <hpdeifel@gmx.de>2015-02-26 13:11:50 +0100
committerHans-Peter Deifel <hpdeifel@gmx.de>2015-02-26 13:11:50 +0100
commit58719551698dbb0f924101f128c7d0fafc3fd3d8 (patch)
treedf6899c366f86937a49e77aaed7e371bbf3b71ad
parent2ca510111349d2da8fabbd38e2dcb4bad923b6f2 (diff)
downloadpandoc-58719551698dbb0f924101f128c7d0fafc3fd3d8.tar.gz
Org reader: Add test for image links
Tests for image links with non-image targets, as introduced in commit 2ca5101.
-rw-r--r--tests/Tests/Readers/Org.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs
index 39c40cd45..3a26861f0 100644
--- a/tests/Tests/Readers/Org.hs
+++ b/tests/Tests/Readers/Org.hs
@@ -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"