@@ -58,14 +58,19 @@ tests = [
58 "\\-\\ \\\\\\[lq]\\[rq]\\[em]\\[en]\\*(lq\\*(rq"
58 "\\-\\ \\\\\\[lq]\\[rq]\\[em]\\[en]\\*(lq\\*(rq"
59 =?> (para $ text "- \\“”—–“”")
59 =?> (para $ text "- \\“”—–“”")
60 , "replace2" =:
60 , "replace2" =:
62− =?> (para $ text "\\` `")
61+ "\\t\\e\\`\\^\\|\\'" =?> (para $ text "\\` `")
63 , "comment with \\\"" =:
62 , "comment with \\\"" =:
65− =?> (para $ text "Foo")
63+ "Foo \\\" bar\n" =?> (para $ text "Foo")
66 , "comment with \\#" =:
64 , "comment with \\#" =:
68− =?> (para $ text "Foobar")
65+ "Foo\\#\nbar\n" =?> (para $ text "Foobar")
66+ , "two letter escapes" =:
67+ "\\(oA\\(~O" =?> (para $ text "ÅÕ")
68+ , "bracketed escapes" =:
69+ "\\[oA]\\[~O]\\[Do]\\[Ye]\\[product]" =?> (para $ text "ÅÕ$¥∏")
70+ , "unicode escapes" =:
71+ "\\[u2020]" =?> (para $ text "†")
72+ , "unicode escapes (combined)" =:
73+ "\\[u0075_u0301]" =?> (para $ text "ú")
70 testGroup "Lists" [
75 testGroup "Lists" [
71 "bullet" =:
76 "bullet" =: