@@ -30,16 +30,16 @@ tests = [
30 =?> (para $ emph "bar")
30 =?> (para $ emph "bar")
31 , "BoldItalic" =:
31 , "BoldItalic" =:
32 ".BI foo bar"
32 ".BI foo bar"
33− =?> (para $ strong $ emph $ str "foo bar")
33+ =?> (para $ strong $ emph $ text "foo bar")
35 ".SH The header\n"
35 ".SH The header\n"
36− =?> header 2 (str "The" <> space <> str "header")
36+ =?> header 2 (text "The header")
38 ".SS \"The header 2\""
38 ".SS \"The header 2\""
39− =?> header 3 (str "The header 2")
39+ =?> header 3 (text "The header 2")
40 , "Macro args" =:
40 , "Macro args" =:
41 ".B \"single arg with \"\"Q\"\"\""
41 ".B \"single arg with \"\"Q\"\"\""
42− =?> (para $ strong $ str "single arg with \"Q\"")
42+ =?> (para $ strong $ text "single arg with \"Q\"")
43 , "comment" =:
43 , "comment" =:
44 ".\\\"bla\naaa"
44 ".\\\"bla\naaa"
45 =?> (para $ space <> str "aaa")
45 =?> (para $ space <> str "aaa")
@@ -56,10 +56,10 @@ tests = [
56 =?> (para $ str "ab")
56 =?> (para $ str "ab")
57 , "replace" =:
57 , "replace" =:
58 "\\-\\ \\\\\\[lq]\\[rq]\\[em]\\[en]\\*(lq\\*(rq"
58 "\\-\\ \\\\\\[lq]\\[rq]\\[em]\\[en]\\*(lq\\*(rq"
59− =?> (para $ str "- \\“”—–“”")
59+ =?> (para $ text "- \\“”—–“”")
60 , "replace2" =:
60 , "replace2" =:
61 "\\t\\e\\`\\^\\|\\'"
61 "\\t\\e\\`\\^\\|\\'"
62− =?> (para $ str "\t\\` `")
62+ =?> (para $ text "\t\\` `")
64 testGroup "Lists" [
64 testGroup "Lists" [
65 "bullet" =:
65 "bullet" =: