summaryrefslogtreecommitdiff
path: root/src/Tests/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2011-12-26 23:03:20 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2011-12-26 23:03:20 -0800
commit765a77758223ce20ebb4d5c4f1456b61c80258fe (patch)
tree6dc04771d8a0aa7a2ae185191cf030cc9c463b1d /src/Tests/Readers
parent45958de0e1ae4a1ed18659f33d3f710f64d57f84 (diff)
Added some failing test cases for apostrophes in French.
Diffstat (limited to 'src/Tests/Readers')
-rw-r--r--src/Tests/Readers/Markdown.hs6
1 files changed, 6 insertions, 0 deletions
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" =: