@@ -61,6 +61,12 @@ tests = [ testGroup "inline code"
6161 [ test markdownSmart "quote before ellipses"
6262 ("'...hi'"
6363 =?> para (singleQuoted (singleton Ellipses <> "hi")))
64+ , test markdownSmart "apostrophe before emph"
65+ ("D'oh! A l'*aide*!"
66+ =?> para ("D’oh! A l’" <> emph "aide" <> "!"))
67+ , test markdownSmart "apostrophe in French"
68+ ("À l'arrivée de la guerre, le thème de l'«impossibilité du socialisme»"
69+ =?> para ("À l’arrivée de la guerre, le thème de l’«impossibilité du socialisme»"))
6470 ]
6571 , testGroup "mixed emphasis and strong"
6672 [ "emph and strong emph alternating" =: