RST reader: Add test for space-before-note.

2016-10-17 09:54:06 -04:00 · 2016-10-17 09:54:06 -04:00 · f407b66405
commit f407b66405
parent e666c92bc9
1 changed files with 9 additions and 0 deletions
--- 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"))
+          ]
        ]