aboutsummaryrefslogtreecommitdiff
path: root/src/Tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-01-31 20:05:11 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2011-01-31 20:05:11 -0800
commitf282b462bb81b271604c533ea176a1e6fde52b12 (patch)
tree990e9f5abe4cd8d17726317b4c4a03814cf94eef /src/Tests
parent21e56042c82115c7e82955d2085315a463eccdc9 (diff)
downloadpandoc-f282b462bb81b271604c533ea176a1e6fde52b12.tar.gz
Markdown reader: Fixed whitespace footnote bug (Jesse Rosenthal).
The problem was in input like this: [^1]: note not in note. Also added a test case for this.
Diffstat (limited to 'src/Tests')
-rw-r--r--src/Tests/Readers/Markdown.hs10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Tests/Readers/Markdown.hs b/src/Tests/Readers/Markdown.hs
index 722a45bdb..021ef7fa5 100644
--- a/src/Tests/Readers/Markdown.hs
+++ b/src/Tests/Readers/Markdown.hs
@@ -26,4 +26,14 @@ tests = [ testGroup "inline code"
"`*` {.haskell .special x=\"7\"}"
=?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
]
+ , testGroup "footnotes"
+ [ "indent followed by newline" =: [_LIT|
+[^1]
+
+[^1]: my note
+
+
+not in note
+|] =?> para (note (para "my note")) +++ para "not in note"
+ ]
]