diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-07-07 22:21:04 -0600 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-07 22:21:04 -0600 |
| commit | f96a2b91f52c102f3ac945019bc9bae40c3b10fa (patch) | |
| tree | 396e06500264589ce7a00749a683f3a92c2505e1 /tests/Tests/Readers | |
| parent | 3d2f2ec0c61081a9abee19b426f02c7dc527d87f (diff) | |
| download | pandoc-f96a2b91f52c102f3ac945019bc9bae40c3b10fa.tar.gz | |
Reorganized some markdown tests.
Diffstat (limited to 'tests/Tests/Readers')
| -rw-r--r-- | tests/Tests/Readers/Markdown.hs | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs index 60bc7314a..8048d2cae 100644 --- a/tests/Tests/Readers/Markdown.hs +++ b/tests/Tests/Readers/Markdown.hs @@ -140,6 +140,15 @@ tests = [ testGroup "inline code" [ "two strongs in emph" =: "***a**b **c**d*" =?> para (emph (strong (str "a") <> str "b" <> space <> strong (str "c") <> str "d")) + , "emph and strong emph alternating" =: + "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx" + =?> para (emph "xxx" <> space <> strong (emph "xxx") <> + space <> "xxx" <> space <> + emph "xxx" <> space <> strong (emph "xxx") <> + space <> "xxx") + , "emph with spaced strong" =: + "*x **xx** x*" + =?> para (emph ("x" <> space <> strong "xx" <> space <> "x")) ] , testGroup "raw LaTeX" [ "in URL" =: @@ -179,17 +188,6 @@ tests = [ testGroup "inline code" ("À 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" =: - "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx" - =?> para (emph "xxx" <> space <> strong (emph "xxx") <> - space <> "xxx" <> space <> - emph "xxx" <> space <> strong (emph "xxx") <> - space <> "xxx") - , "emph with spaced strong" =: - "*x **xx** x*" - =?> para (emph ("x" <> space <> strong "xx" <> space <> "x")) - ] , testGroup "footnotes" [ "indent followed by newline and flush-left text" =: "[^1]\n\n[^1]: my note\n\n \nnot in note\n" |