diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-14 22:34:47 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-18 23:43:02 +0300 |
| commit | 6018a2324d4eddc3844aa4c00b17294e85003750 (patch) | |
| tree | 2a96e2a990d72ba635aeeaff34a2918be2c1f606 /test | |
| parent | 26e59b331fc6ce2509a3b53f4454c0fadfbc58ee (diff) | |
Muse reader: Add Text::Amuse footnote extensions
Footnote end is indicated by indentation,
so footnotes can be placed anywhere in the text,
not just at the end of it.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index b4e5dd05e..a9aa4cf12 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -377,6 +377,43 @@ tests = ] =?> para (text "Start recursion here" <> note (para "Recursion continues here[1]")) + , testGroup "Multiparagraph footnotes" + [ "Amusewiki multiparagraph footnotes" =: + T.unlines [ "Multiparagraph[1] footnotes[2]" + , "" + , "[1] First footnote paragraph" + , "" + , " Second footnote paragraph" + , "Not a note" + , "[2] Second footnote" + ] =?> + para (text "Multiparagraph" <> + note (para "First footnote paragraph" <> + para "Second footnote paragraph") <> + text " footnotes" <> + note (para "Second footnote")) <> + para (text "Not a note") + , test emacsMuse "Emacs multiparagraph footnotes" + (T.unlines + [ "First footnote reference[1] and second footnote reference[2]." + , "" + , "[1] First footnote paragraph" + , "" + , "Second footnote" + , "paragraph" + , "" + , "[2] Third footnote paragraph" + , "" + , "Fourth footnote paragraph" + ] =?> + para (text "First footnote reference" <> + note (para "First footnote paragraph" <> + para "Second footnote paragraph") <> + text " and second footnote reference" <> + note (para "Third footnote paragraph" <> + para "Fourth footnote paragraph") <> + text ".")) + ] ] ] , testGroup "Tables" |