@@ -40,6 +40,13 @@ 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"
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"))
43 , testGroup "footnotes"
50 , testGroup "footnotes"
44 [ "indent followed by newline and flush-left text" =:
51 [ "indent followed by newline and flush-left text" =:
45 "[^1]\n\n[^1]: my note\n\n \nnot in note\n"
52 "[^1]\n\n[^1]: my note\n\n \nnot in note\n"