From 765a77758223ce20ebb4d5c4f1456b61c80258fe Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 26 Dec 2011 23:03:20 -0800 Subject: Added some failing test cases for apostrophes in French. --- src/Tests/Readers/Markdown.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Tests') diff --git a/src/Tests/Readers/Markdown.hs b/src/Tests/Readers/Markdown.hs index 3c0cb9a3a..ca04b8e22 100644 --- a/src/Tests/Readers/Markdown.hs +++ b/src/Tests/Readers/Markdown.hs @@ -61,6 +61,12 @@ tests = [ testGroup "inline code" [ test markdownSmart "quote before ellipses" ("'...hi'" =?> para (singleQuoted (singleton Ellipses <> "hi"))) + , test markdownSmart "apostrophe before emph" + ("D'oh! A l'*aide*!" + =?> para ("D’oh! A l’" <> emph "aide" <> "!")) + , test markdownSmart "apostrophe in French" + ("À l'arrivée de la guerre, le thème de l'«impossibilité du socialisme»" + =?> para ("À l’arrivée de la guerre, le thème de l’«impossibilité du socialisme»")) ] , testGroup "mixed emphasis and strong" [ "emph and strong emph alternating" =: -- cgit v1.2.3