diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2017-09-25 09:31:29 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2017-09-25 09:31:29 +0200 |
| commit | 3a7663281a35292b87471da4f5b7a88808546076 (patch) | |
| tree | 80dda5d6f4f89d8507390fa0d24faa6a07ad7114 /test | |
| parent | c78a101b7d6740f12b28a5bbdeecbc58da1302c8 (diff) | |
| download | pandoc-3a7663281a35292b87471da4f5b7a88808546076.tar.gz | |
Org reader: update emphasis border chars
The org reader was updated to match current org-mode behavior: the set
of characters which are acceptable to occur as the first or last
character in an org emphasis have been changed and now allows all
non-whitespace chars at the inner border of emphasized text (see
`org-emphasis-regexp-components`).
Fixes: #3933
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Org.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs index a9097f993..0a91d9357 100644 --- a/test/Tests/Readers/Org.hs +++ b/test/Tests/Readers/Org.hs @@ -131,18 +131,18 @@ tests = para (spcSep [ emph $ "t/&" <> space <> "a" , "/" , "./r/" - , "(" <> (strong "l") <> ")" - , (emph "e") <> "!" - , (emph "b") <> "." + , "(" <> strong "l" <> ")" + , emph "e" <> "!" + , emph "b" <> "." ]) - , "Quotes are forbidden border chars" =: - "/'nope/ *nope\"*" =?> - para ("/'nope/" <> space <> "*nope\"*") + , "Quotes are allowed border chars" =: + "/'yep/ *sure\"*" =?> + para (emph "'yep" <> space <> strong "sure\"") - , "Commata are forbidden border chars" =: - "/nada,/" =?> - para "/nada,/" + , "Spaces are forbidden border chars" =: + "/nada /" =?> + para "/nada /" , "Markup should work properly after a blank line" =: T.unlines ["foo", "", "/bar/"] =?> |