diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2017-04-16 21:19:35 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2017-04-16 21:19:35 +0200 |
| commit | 464db59394e5ff0e366e1dab40c3edbf7ea32dac (patch) | |
| tree | abd89f11925311926bbab295f3979051e5f50956 /test/Tests/Readers | |
| parent | 1c8683f205c6e0b028dd62a13936d9a9f6124270 (diff) | |
Org reader: allow emphasized text to be followed by `[`
Closes: #3577
Diffstat (limited to 'test/Tests/Readers')
| -rw-r--r-- | test/Tests/Readers/Org.hs | 10 |
1 files changed, 10 insertions, 0 deletions
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]" , "" |