RST reader: Add test for space-before-note.
commitf407b66405d4619d99a877c8332a6458fb8a4bbe
authorJesse Rosenthal <jrosenthal@jhu.edu>
dateMon 17 Oct 2016, 09:54 (10 years ago)
parente666c92
tests/Tests/Readers/RST.hs+9
@@ -163,4 +163,13 @@ tests = [ "line block with blank line" =:
163163 =?> para (codeWith ("", ["lhs", "haskell", "sourceCode"], []) "text")
164164 , "unknown role" =: ":unknown:`text`" =?> para (str "text")
165165 ]
166+ , testGroup "footnotes"
167+ [ "remove space before note" =: unlines
168+ [ "foo [1]_"
169+ , ""
170+ , ".. [1]"
171+ , " bar"
172+ ] =?>
173+ (para $ "foo" <> (note $ para "bar"))
174+ ]
166175 ]