aboutsummaryrefslogtreecommitdiff
path: root/src/Tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-02-01 07:37:22 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2011-02-01 07:37:22 -0800
commit1edeea5d606d4da446548a4ed29d13d963dbbcd6 (patch)
tree75b6d6192df9ff34a766fb3488b92c78255774a6 /src/Tests
parente898f0abef48a79d5bf64a8c17cdf94cf8f1b258 (diff)
downloadpandoc-1edeea5d606d4da446548a4ed29d13d963dbbcd6.tar.gz
Added a (failing) test for footnotes.
Diffstat (limited to 'src/Tests')
-rw-r--r--src/Tests/Readers/Markdown.hs5
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"))
]
]