@@ -61,6 +61,12 @@ tests = [ testGroup "inline code"
61 [ test markdownSmart "quote before ellipses"
61 [ test markdownSmart "quote before ellipses"
62 ("'...hi'"
62 ("'...hi'"
63 =?> para (singleQuoted (singleton Ellipses <> "hi")))
63 =?> para (singleQuoted (singleton Ellipses <> "hi")))
64+ , test markdownSmart "apostrophe before emph"
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»"))
65 , testGroup "mixed emphasis and strong"
71 , testGroup "mixed emphasis and strong"
66 [ "emph and strong emph alternating" =:
72 [ "emph and strong emph alternating" =: