@@ -27,8 +27,11 @@ tests = [ testGroup "inline code"
27 =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
27 =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
29 , testGroup "footnotes"
29 , testGroup "footnotes"
30− [ "indent followed by newline" =:
30+ [ "indent followed by newline and flush-left text" =:
31 "[^1]\n\n[^1]: my note\n\n \nnot in note\n"
31 "[^1]\n\n[^1]: my note\n\n \nnot in note\n"
32 =?> para (note (para "my note")) +++ para "not in note"
32 =?> para (note (para "my note")) +++ para "not in note"
33+ , "indent followed by newline and indented text" =:
34+ "[^1]\n\n[^1]: my note\n\n \n in note\n"
35+ =?> para (note (para "my note" +++ para "in note"))