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: 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(+)

(limited to 'tests/Tests')

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"
-- 
cgit v1.2.3