From 58719551698dbb0f924101f128c7d0fafc3fd3d8 Mon Sep 17 00:00:00 2001
From: Hans-Peter Deifel <hpdeifel@gmx.de>
Date: Thu, 26 Feb 2015 13:11:50 +0100
Subject: [PATCH] Org reader: Add test for image links
Tests for image links with non-image targets, as introduced in
commit 2ca5101.
---
tests/Tests/Readers/Org.hs | 4 ++++
1 file changed, 4 insertions(+)
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"