diff options
| author | Alexander <ilabdsf@gmail.com> | 2017-08-29 22:40:34 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-29 12:40:34 -0700 |
| commit | 14f813c3f294739f3965058e27eb228ab3ed90d5 (patch) | |
| tree | 5aa7fadc875f136e947b0fab0ef001f57035607f /test | |
| parent | 2d936ff4e08c8b77f2dac0b278b85bb7f66658af (diff) | |
Muse reader: parse verse markup (#3882)
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 1f3218daf..4e5e5b606 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -145,6 +145,30 @@ tests = , " with a continuation" ] =?> blockQuote (para "This is a quotation with a continuation") + , "Verse" =: + T.unlines [ "> This is" + , "> First stanza" + , ">" -- Emacs produces verbatim ">" here, we follow Amusewiki + , "> And this is" + , "> Second stanza" + , ">" + , "" + , ">" + , "" + , "> Another verse" + , "> is here" + ] =?> + lineBlock [ "This is" + , "First stanza" + , "" + , "And this is" + , "\160\160Second stanza" + , "" + ] <> + lineBlock [ "" ] <> + lineBlock [ "Another verse" + , "\160\160\160is here" + ] ] , "Quote tag" =: "<quote>Hello, world</quote>" =?> blockQuote (para $ text "Hello, world") , "Verse tag" =: |