diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-14 13:41:05 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-23 18:02:04 +0300 |
| commit | 2eab8f465410db57a7df27631a83058f8f480d89 (patch) | |
| tree | c38aaebf936dbacad75e8851133c04dec367e507 /test | |
| parent | e810a5cc009aba006ea10a00ed9ac0e308f08ca5 (diff) | |
Muse reader: improve verse parsing
Now verse marked up with ">" (in contrast to <verse> tag) can be placed
inside lists.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 2a350d252..c0ebf33cc 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -296,6 +296,17 @@ tests = , "\160\160\160is here" ] ] + , "Verse in list" =: " - > foo" =?> bulletList [ lineBlock [ "foo" ] ] + , "Multiline verse in list" =: + T.unlines [ " - > foo" + , " > bar" + ] =?> + bulletList [ lineBlock [ "foo", "bar" ] ] + , "Paragraph after verse in list" =: + T.unlines [ " - > foo" + , " bar" + ] =?> + bulletList [ lineBlock [ "foo" ] <> para "bar" ] , "Empty quote tag" =: T.unlines [ "<quote>" , "</quote>" |