summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2017-04-16 17:22:47 +0200
committerAlbert Krewinkel <albert@zeitkraut.de>2017-04-16 17:22:47 +0200
commit56dddcc3f556217a3354aff2e887b0ba4714f369 (patch)
tree25701ee4e1eee27615e617470027339ba3fc553a /test
parente6a536befcfd433aba66a3085e62792383867695 (diff)
Org reader: convert markup at beginning of footnotes
Closes: #3576
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/Org.hs10
1 files changed, 10 insertions, 0 deletions
diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs
index 821739437..b2d0cd684 100644
--- a/test/Tests/Readers/Org.hs
+++ b/test/Tests/Readers/Org.hs
@@ -1028,6 +1028,16 @@ tests =
, note $ para ("Second" <> space <> "note.")
])
+ , "Footnote that starts with emphasized text" =:
+ unlines [ "text[fn:1]"
+ , ""
+ , "[fn:1] /emphasized/"
+ ] =?>
+ para (mconcat
+ [ "text"
+ , note . para $ emph "emphasized"
+ ])
+
, "Footnote followed by header" =:
unlines [ "Another note[fn:yay]"
, ""