@@ -40,12 +40,16 @@ tests = [ testGroup "inline code"
40 "`*` {.haskell .special x=\"7\"}"
40 "`*` {.haskell .special x=\"7\"}"
41 =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
41 =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
43− , testGroup "emphasis and strong"
43+ , testGroup "mixed emphasis and strong"
44− [ "mixed emph and strong" =:
44+ [ "emph and strong emph alternating" =:
45 "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx"
45 "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx"
46 =?> para (emph "xxx" +++ space +++ strong (emph "xxx") +++
46 =?> para (emph "xxx" +++ space +++ strong (emph "xxx") +++
47 space +++ "xxx" +++ space +++
47 space +++ "xxx" +++ space +++
48− emph "xxx" +++ space +++ strong (emph "xxx"))
48+ emph "xxx" +++ space +++ strong (emph "xxx") +++
50+ , "emph with spaced strong" =:
52+ =?> para (emph ("x" +++ space +++ strong "xx" +++ space +++ "x"))
50 , testGroup "footnotes"
54 , testGroup "footnotes"
51 [ "indent followed by newline and flush-left text" =:
55 [ "indent followed by newline and flush-left text" =: