@@ -40,6 +40,13 @@ 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" =:
45+ "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx"
46+ =?> para (emph "xxx" +++ space +++ strong (emph "xxx") +++
47+ space +++ "xxx" +++ space +++
48+ emph "xxx" +++ space +++ strong (emph "xxx"))
49+ ]
4350 , testGroup "footnotes"
4451 [ "indent followed by newline and flush-left text" =:
4552 "[^1]\n\n[^1]: my note\n\n \nnot in note\n"