aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-20 22:40:49 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-20 22:41:39 -0700
commit2b7a541dd0503a30b26e3a5f4f97470c675466b6 (patch)
tree62f29f28d2aa0d460e24cda2a9b337b0fddb81fd /test/Tests/Readers
parent78bec0837d75e563cb82dc9af40c7ce56e9c35ac (diff)
downloadpandoc-2b7a541dd0503a30b26e3a5f4f97470c675466b6.tar.gz
Man reader: Fixed handling of nested fonts.
Closes #4978.
Diffstat (limited to 'test/Tests/Readers')
-rw-r--r--test/Tests/Readers/Man.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs
index 7541d1c67..7fd265122 100644
--- a/test/Tests/Readers/Man.hs
+++ b/test/Tests/Readers/Man.hs
@@ -54,6 +54,13 @@ tests = [
"fonts" =:
"aa\\fIbb\\fRcc"
=?> (para $ str "aa" <> (emph $ str "bb") <> str "cc")
+ , "nested fonts" =:
+ "\\f[BI]hi\\f[I] there\\f[R]"
+ =?> para (emph (strong (text "hi") <> text " there"))
+ , "nested fonts 2" =:
+ "\\f[R]hi \\f[I]there \\f[BI]bold\\f[R] ok"
+ =?> para (text "hi " <> emph (text "there " <> strong (text "bold")) <>
+ text " ok")
, "skip" =:
"a\\%\\{\\}\\\n\\:b\\0"
=?> (para $ str "ab")