diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-06-22 20:37:57 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-06-22 20:37:57 -0700 |
commit | 9b5f1cba212f77c2aa3c6b28cbb3c000d805fcd8 (patch) | |
tree | ea1c65ce15df0a9b2db9384082726b154c622794 | |
parent | 5611057e06431de32a0c832367c6a8942585fb39 (diff) | |
download | pandoc-9b5f1cba212f77c2aa3c6b28cbb3c000d805fcd8.tar.gz |
Fixed test, added another markdown emph/strong test.
-rw-r--r-- | src/Tests/Readers/Markdown.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/Tests/Readers/Markdown.hs b/src/Tests/Readers/Markdown.hs index db9d8bd59..c0eb672ca 100644 --- a/src/Tests/Readers/Markdown.hs +++ b/src/Tests/Readers/Markdown.hs @@ -40,12 +40,16 @@ tests = [ testGroup "inline code" "`*` {.haskell .special x=\"7\"}" =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*") ] - , testGroup "emphasis and strong" - [ "mixed emph and strong" =: + , 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")) + 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" =: |