diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-06-22 20:18:32 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-06-22 20:18:32 -0700 |
| commit | 5611057e06431de32a0c832367c6a8942585fb39 (patch) | |
| tree | b91829012f41846da89581a31d68fda308621433 /src/Tests | |
| parent | 9e71dc3f48d5a397cac4aecc72223629aecbabd6 (diff) | |
Added failing test case due to Perry Wagle.
Diffstat (limited to 'src/Tests')
| -rw-r--r-- | src/Tests/Readers/Markdown.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Tests/Readers/Markdown.hs b/src/Tests/Readers/Markdown.hs index d3687b38a..db9d8bd59 100644 --- a/src/Tests/Readers/Markdown.hs +++ b/src/Tests/Readers/Markdown.hs @@ -40,6 +40,13 @@ tests = [ testGroup "inline code" "`*` {.haskell .special x=\"7\"}" =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*") ] + , testGroup "emphasis and strong" + [ "mixed emph and strong" =: + "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx" + =?> para (emph "xxx" +++ space +++ strong (emph "xxx") +++ + space +++ "xxx" +++ space +++ + emph "xxx" +++ space +++ strong (emph "xxx")) + ] , testGroup "footnotes" [ "indent followed by newline and flush-left text" =: "[^1]\n\n[^1]: my note\n\n \nnot in note\n" |