From f5d7d41cbdf02bdca04115bbe527b3a58ff67ea5 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Sat, 20 Jun 2020 18:14:18 +0200
Subject: Recognize images with uppercase extensions

Fixes: #6472
---
 test/Tests/Readers/Org/Inline.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'test/Tests/Readers/Org')

diff --git a/test/Tests/Readers/Org/Inline.hs b/test/Tests/Readers/Org/Inline.hs
index 19a20fd06..85c9a8756 100644
--- a/test/Tests/Readers/Org/Inline.hs
+++ b/test/Tests/Readers/Org/Inline.hs
@@ -214,6 +214,10 @@ tests =
                 , "[[file:guinea-pig.gif]]"
                 ] =?>
       para (imageWith ("", [], [("width", "50%")]) "guinea-pig.gif" "" "")
+
+    , "Uppercase extension" =:
+      "[[file:test.PNG]]" =?>
+      para (image "test.PNG" "" "")
     ]
 
   , "Explicit link" =:
-- 
cgit v1.2.3