diff options
| author | Yan Pas <yanp.bugz@gmail.com> | 2018-05-23 00:20:30 +0300 |
|---|---|---|
| committer | Yan Pas <yanp.bugz@gmail.com> | 2018-05-23 00:20:30 +0300 |
| commit | 1ce067fc2a4f70963c2c879eac74807bb4fa9e7c (patch) | |
| tree | 99199f5e8aa1257c58845115cb4350d0bbbe8229 /test/Tests/Readers/Man.hs | |
| parent | 7f7e1c21e2c1f1f86e6ef088bdc70461a693c20e (diff) | |
| download | pandoc-1ce067fc2a4f70963c2c879eac74807bb4fa9e7c.tar.gz | |
tests, parsing fixes
Diffstat (limited to 'test/Tests/Readers/Man.hs')
| -rw-r--r-- | test/Tests/Readers/Man.hs | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index a9fe324d1..4807095a5 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -23,10 +23,22 @@ tests = [ -- .SH "HEllo bbb" "aaa"" as" testGroup "Macros" [ "Bold" =: - ".B foo\n" + ".B foo" =?> (para $ strong "foo") , "Italic" =: - ".I foo\n" - =?> (para $ emph "foo") + ".I bar\n" + =?> (para $ emph "bar") + , "BoldItalic" =: + ".BI foo bar" + =?> (para $ strong $ emph $ str "foo bar") + , "H1" =: + ".SH The header\n" + =?> header 2 (str "The header") + , "H2" =: + ".SS The header 2" + =?> header 3 (str "The header 2") + , "Macro args" =: + ".B \"single arg with \"\"Q\"\"\"" + =?> (para $ strong $ str "single arg with \"Q\"") ] ] |