diff options
Diffstat (limited to 'test/Tests')
-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" =: |