From 1ce067fc2a4f70963c2c879eac74807bb4fa9e7c Mon Sep 17 00:00:00 2001
From: Yan Pas <yanp.bugz@gmail.com>
Date: Wed, 23 May 2018 00:20:30 +0300
Subject: tests, parsing fixes

---
 test/Tests/Readers/Man.hs | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

(limited to 'test/Tests')

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\"")
         ]
   ]
-- 
cgit v1.2.3