@@ -40,12 +40,16 @@ tests = [ testGroup "inline code"
4040 "`*` {.haskell .special x=\"7\"}"
4141 =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
4242 ]
43− , testGroup "emphasis and strong"
44− [ "mixed emph and strong" =:
43+ , testGroup "mixed emphasis and strong"
44+ [ "emph and strong emph alternating" =:
4545 "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx"
4646 =?> para (emph "xxx" +++ space +++ strong (emph "xxx") +++
4747 space +++ "xxx" +++ space +++
48− emph "xxx" +++ space +++ strong (emph "xxx"))
48+ emph "xxx" +++ space +++ strong (emph "xxx") +++
49+ space +++ "xxx")
50+ , "emph with spaced strong" =:
51+ "*x **xx** x*"
52+ =?> para (emph ("x" +++ space +++ strong "xx" +++ space +++ "x"))
4953 ]
5054 , testGroup "footnotes"
5155 [ "indent followed by newline and flush-left text" =: