aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers/Muse.hs
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-04-26 12:29:45 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-04-26 12:38:17 +0300
commit4d89a1db7f1ad9d64db7c9e2c294351821ff3993 (patch)
tree8e31334d362359c0e9f6428fb386b482803e192d /test/Tests/Readers/Muse.hs
parent73463b823929ce4930ed60e576d13a148ffb573c (diff)
downloadpandoc-4d89a1db7f1ad9d64db7c9e2c294351821ff3993.tar.gz
Muse reader: allow nested footnotes
Diffstat (limited to 'test/Tests/Readers/Muse.hs')
-rw-r--r--test/Tests/Readers/Muse.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index a7eb9d0eb..ecdd5fdb0 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -659,6 +659,15 @@ tests =
] =?>
para (text "Start recursion here" <>
note (para "Recursion continues here[1]"))
+ , "Nested footnotes" =:
+ T.unlines [ "Footnote: [1]"
+ , ""
+ , "[1] Nested: [2]"
+ , ""
+ , "[2] No recursion: [1]"
+ ] =?>
+ para (text "Footnote: " <>
+ note (para (text "Nested: " <> note (para $ text "No recursion: [1]"))))
, "No zero footnotes" =:
T.unlines [ "Here is a footnote[0]."
, ""