diff options
| author | Christian Christiansen <christian.l.christiansen@gmail.com> | 2023-03-22 22:19:52 +1100 |
|---|---|---|
| committer | Albert Krewinkel <albert+github@zeitkraut.de> | 2023-03-22 18:29:53 +0100 |
| commit | fe720dd0c6c3a1b666df3edcdb1c12c89ab3d761 (patch) | |
| tree | 09bd0ae095d9a70cbfa8ffe15c8172eb2a09dd3b /test/Tests | |
| parent | 821cf3df4df695d4bb8f8659a85993033939e860 (diff) | |
Org reader: Allow zero width space as an escape character
Allow the character U+200B to be used as an escape character as described
in the Org-mode documentation https://orgmode.org/manual/Escape-Character.html
Closes issue #8716.
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Org/Inline.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test/Tests/Readers/Org/Inline.hs b/test/Tests/Readers/Org/Inline.hs index faddb9a58..2c01c4a82 100644 --- a/test/Tests/Readers/Org/Inline.hs +++ b/test/Tests/Readers/Org/Inline.hs @@ -120,12 +120,13 @@ tests = para (spcSep [ "//", "**", "__", "<>", "==", "~~", "$$" ]) , "Adherence to Org's rules for markup borders" =: - "/t/& a/ / ./r/ (*l*) /e/! /b/." =?> + "/t/& a/ / ./r/ (*l*) /e/! ze\x200b/r/\x200bo /b/." =?> para (spcSep [ emph $ "t/&" <> space <> "a" , "/" , "./r/" , "(" <> strong "l" <> ")" , emph "e" <> "!" + , "ze\x200b" <> emph "r" <> "\x200bo" , emph "b" <> "." ]) @@ -137,6 +138,10 @@ tests = "/nada /" =?> para "/nada /" + , "Zero width spaces are forbidden border chars" =: + "/emph\x200b/asis" =?> + para "/emph\x200b/asis" + , "Markup should work properly after a blank line" =: T.unlines ["foo", "", "/bar/"] =?> para (text "foo") <> |