diff options
| author | Yan Pas <yanp.bugz@gmail.com> | 2018-10-16 03:12:06 +0300 |
|---|---|---|
| committer | Yan Pas <yanp.bugz@gmail.com> | 2018-10-16 03:12:06 +0300 |
| commit | ce27bf9a02d98a6a5412a493577fa9d2f3cfd1fe (patch) | |
| tree | cb744eb93fad92cf767c08f8ce87cd5e8dab3fa5 /test | |
| parent | 1684e918b286fad89425d2d5f45b7d51b5f4ddf8 (diff) | |
| download | pandoc-ce27bf9a02d98a6a5412a493577fa9d2f3cfd1fe.tar.gz | |
builders
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Man.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index 6226099d2..4d8e13fb1 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -45,7 +45,7 @@ tests = [ =?> (para $ space <> str "aaa") , "link" =: ".BR aa (1)" - =?> (para $ fromList [Link nullAttr [Strong [Str "aa"]] ("../1/aa.1","aa"), Strong [Str " (1)",Str ""]]) + =?> (para $ link "../1/aa.1" "aa" (strong $ str "aa") <> (strong $ str " (1)")) ], testGroup "Escapes" [ "fonts" =: @@ -53,13 +53,13 @@ tests = [ =?> (para $ str "aa" <> (emph $ str "bb") <> str "cc") , "skip" =: "a\\%\\{\\}\\\n\\:b\\0" - =?> (para $ fromList $ map Str ["a", "b"]) + =?> (para $ str "ab") , "replace" =: "\\-\\ \\\\\\[lq]\\[rq]\\[em]\\[en]\\*(lq\\*(rq" - =?> (para $ fromList $ map Str ["-", " ", "\\", "“", "”", "—", "–", "«", "»"]) + =?> (para $ str "- \\“”—–«»") , "replace2" =: "\\t\\e\\`\\^\\|\\'" - =?> (para $ fromList $ map Str ["\t", "\\", "`", " ", " ", "`"]) + =?> (para $ str "\t\\` `") ], testGroup "Lists" [ "bullet" =: |