diff options
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index ab0579519..36724b33c 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -797,6 +797,23 @@ tests = , "baz" ] =?> para (str "Foo" <> note (lineBlock ["bar"])) <> para (str "baz") + + , "Footnote starting with empty line" =: + T.unlines [ "Foo[1]" + , "" + , "[1]" -- No space character after note marker + , "" + , " Bar" + ] =?> + para (str "Foo" <> note (para $ text "Bar")) + , "Indentation in footnote starting with empty line" =: + T.unlines [ "Foo[1]" + , "" + , "[1]" -- No space character after note marker + , "" + , " Bar" + ] =?> + para (str "Foo" <> note mempty) <> blockQuote (para $ text "Bar") , test emacsMuse "Emacs multiparagraph footnotes" (T.unlines [ "First footnote reference[1] and second footnote reference[2]." |