diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-02-01 07:37:22 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-02-01 07:37:22 -0800 |
| commit | 1edeea5d606d4da446548a4ed29d13d963dbbcd6 (patch) | |
| tree | 75b6d6192df9ff34a766fb3488b92c78255774a6 /src/Tests | |
| parent | e898f0abef48a79d5bf64a8c17cdf94cf8f1b258 (diff) | |
Added a (failing) test for footnotes.
Diffstat (limited to 'src/Tests')
| -rw-r--r-- | src/Tests/Readers/Markdown.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Tests/Readers/Markdown.hs b/src/Tests/Readers/Markdown.hs index bfd3602e0..9fc0496bb 100644 --- a/src/Tests/Readers/Markdown.hs +++ b/src/Tests/Readers/Markdown.hs @@ -27,8 +27,11 @@ tests = [ testGroup "inline code" =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*") ] , testGroup "footnotes" - [ "indent followed by newline" =: + [ "indent followed by newline and flush-left text" =: "[^1]\n\n[^1]: my note\n\n \nnot in note\n" =?> para (note (para "my note")) +++ para "not in note" + , "indent followed by newline and indented text" =: + "[^1]\n\n[^1]: my note\n\n \n in note\n" + =?> para (note (para "my note" +++ para "in note")) ] ] |