From 464db59394e5ff0e366e1dab40c3edbf7ea32dac Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Sun, 16 Apr 2017 21:19:35 +0200
Subject: Org reader: allow emphasized text to be followed by `[`

Closes: #3577
---
 test/Tests/Readers/Org.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'test')

diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs
index b2d0cd684..48f4989ce 100644
--- a/test/Tests/Readers/Org.hs
+++ b/test/Tests/Readers/Org.hs
@@ -1028,6 +1028,16 @@ tests =
                 , note $ para ("Second" <> space <> "note.")
                 ])
 
+      , "Emphasized text before footnote" =:
+          unlines [ "/text/[fn:1]"
+                  , ""
+                  , "[fn:1] unicorn"
+                  ] =?>
+          para (mconcat
+               [ emph "text"
+               , note . para $ "unicorn"
+               ])
+
       , "Footnote that starts with emphasized text" =:
           unlines [ "text[fn:1]"
                   , ""
-- 
cgit v1.2.3