diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2014-10-18 10:38:39 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2014-10-18 12:47:59 +0200 |
| commit | d571bec454e9f0822c2c71eeee2f8bfc6eb34c3c (patch) | |
| tree | 640ea8aa8c1e4969c9bc628a00d3df8f1310eee4 /tests/Tests | |
| parent | 8b60d430f2095c42daf26f2921359d5c49f0757d (diff) | |
Org reader: fix rules for emphasis recognition
Things like `/hello,/` or `/hi'/` were falsy recognized as emphasised
strings. This is wrong, as `,` and `'` are forbidden border chars and
may not occur on the inner border of emphasized text. This patch
enables the reader to matches the reference implementation in that it
reads the above strings as plain text.
Diffstat (limited to 'tests/Tests')
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index 92ec8155b..5ea859255 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -126,6 +126,14 @@ tests = , (emph "b") <> "." ]) + , "Quotes are forbidden border chars" =: + "/'nope/ *nope\"*" =?> + para ("/'nope/" <> space <> "*nope\"*") + + , "Commata are forbidden border chars" =: + "/nada,/" =?> + para "/nada,/" + , "Markup should work properly after a blank line" =: unlines ["foo", "", "/bar/"] =?> (para $ text "foo") <> (para $ emph $ text "bar") |