diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-26 23:03:20 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-26 23:03:20 -0800 |
| commit | 765a77758223ce20ebb4d5c4f1456b61c80258fe (patch) | |
| tree | 6dc04771d8a0aa7a2ae185191cf030cc9c463b1d /src/Tests | |
| parent | 45958de0e1ae4a1ed18659f33d3f710f64d57f84 (diff) | |
| download | pandoc-765a77758223ce20ebb4d5c4f1456b61c80258fe.tar.gz | |
Added some failing test cases for apostrophes in French.
Diffstat (limited to 'src/Tests')
| -rw-r--r-- | src/Tests/Readers/Markdown.hs | 6 |
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" =: |