From ce27bf9a02d98a6a5412a493577fa9d2f3cfd1fe Mon Sep 17 00:00:00 2001
From: Yan Pas <yanp.bugz@gmail.com>
Date: Tue, 16 Oct 2018 03:12:06 +0300
Subject: builders

---
 test/Tests/Readers/Man.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'test/Tests')

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" =:
-- 
cgit v1.2.3