diff options
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Man.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index f784596f3..e531404f5 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -42,7 +42,7 @@ tests = [ =?> (para $ strong $ text "single arg with \"Q\"") , "comment" =: ".\\\"bla\naaa" - =?> (para $ space <> str "aaa") + =?> (para $ str "aaa") , "link" =: ".BR aa (1)" =?> (para $ link "../1/aa.1" "aa" (strong $ str "aa") <> (strong $ str " (1)")) @@ -59,7 +59,13 @@ tests = [ =?> (para $ text "- \\“”—–“”") , "replace2" =: "\\t\\e\\`\\^\\|\\'" - =?> (para $ text "\t\\` `") + =?> (para $ text "\\` `") + , "comment with \\\"" =: + "Foo \\\" bar\n" + =?> (para $ text "Foo") + , "comment with \\#" =: + "Foo\\#\nbar\n" + =?> (para $ text "Foobar") ], testGroup "Lists" [ "bullet" =: |