diff options
author | John MacFarlane <jgm@berkeley.edu> | 2018-10-19 15:36:43 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-19 15:36:43 -0700 |
commit | 790ada894610d29c3fe6e06cd6b9a533ecf1b4c0 (patch) | |
tree | 2af7dbc68d0cead4bb40f2e911b1dedfd6e82310 /test/Tests/Readers | |
parent | 56c4a11f97ce61085f1435e806437fbdb2638bd0 (diff) | |
download | pandoc-790ada894610d29c3fe6e06cd6b9a533ecf1b4c0.tar.gz |
Man reader: Added more tests for escapes.
Closes #4983.
Diffstat (limited to 'test/Tests/Readers')
-rw-r--r-- | test/Tests/Readers/Man.hs | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index e531404f5..a134c5813 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -58,14 +58,19 @@ tests = [ "\\-\\ \\\\\\[lq]\\[rq]\\[em]\\[en]\\*(lq\\*(rq" =?> (para $ text "- \\“”—–“”") , "replace2" =: - "\\t\\e\\`\\^\\|\\'" - =?> (para $ text "\\` `") + "\\t\\e\\`\\^\\|\\'" =?> (para $ text "\\` `") , "comment with \\\"" =: - "Foo \\\" bar\n" - =?> (para $ text "Foo") + "Foo \\\" bar\n" =?> (para $ text "Foo") , "comment with \\#" =: - "Foo\\#\nbar\n" - =?> (para $ text "Foobar") + "Foo\\#\nbar\n" =?> (para $ text "Foobar") + , "two letter escapes" =: + "\\(oA\\(~O" =?> (para $ text "ÅÕ") + , "bracketed escapes" =: + "\\[oA]\\[~O]\\[Do]\\[Ye]\\[product]" =?> (para $ text "ÅÕ$¥∏") + , "unicode escapes" =: + "\\[u2020]" =?> (para $ text "†") + , "unicode escapes (combined)" =: + "\\[u0075_u0301]" =?> (para $ text "ú") ], testGroup "Lists" [ "bullet" =: |