diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-19 15:16:05 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-19 15:17:53 -0700 |
| commit | 56c4a11f97ce61085f1435e806437fbdb2638bd0 (patch) | |
| tree | 57dcdebf1db2cc932493193ea52929ca0f19cef0 /test/Tests | |
| parent | e6772360f661c50eea2f83dc4110185da3ad0f74 (diff) | |
| download | pandoc-56c4a11f97ce61085f1435e806437fbdb2638bd0.tar.gz | |
Man reader: minor improvements.
use `trimInlines` for Para content to avoid leading and
trailing spaces.
Fix handling of \" in middle of line.
Add more tests for escapes.
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" =: |