summaryrefslogtreecommitdiff
path: root/tests/Tests
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2016-10-17 09:54:06 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2016-10-17 09:55:18 -0400
commitf407b66405d4619d99a877c8332a6458fb8a4bbe (patch)
treea231278c856df7f7cc80c80aaef3660d9fcaa735 /tests/Tests
parente666c92bc91a51d49008435dc8555118619037d6 (diff)
RST reader: Add test for space-before-note.
Diffstat (limited to 'tests/Tests')
-rw-r--r--tests/Tests/Readers/RST.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs
index 074d1014c..06a15ad98 100644
--- a/tests/Tests/Readers/RST.hs
+++ b/tests/Tests/Readers/RST.hs
@@ -163,4 +163,13 @@ tests = [ "line block with blank line" =:
=?> para (codeWith ("", ["lhs", "haskell", "sourceCode"], []) "text")
, "unknown role" =: ":unknown:`text`" =?> para (str "text")
]
+ , testGroup "footnotes"
+ [ "remove space before note" =: unlines
+ [ "foo [1]_"
+ , ""
+ , ".. [1]"
+ , " bar"
+ ] =?>
+ (para $ "foo" <> (note $ para "bar"))
+ ]
]