diff options
| author | Alexander <ilabdsf@gmail.com> | 2017-08-25 17:09:28 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-25 07:09:28 -0700 |
| commit | e6f767b581742343bd7319bcc4c3632e18c58a70 (patch) | |
| tree | 00f51770cab2d754769268ef25e594baf270763e /test | |
| parent | ef209ebad2d8cff1e054ee1ba7f28b08d317f4cf (diff) | |
Muse reader: parse <verse> tag (#3872)
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 8d4ad0b15..1f3218daf 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -147,6 +147,27 @@ tests = blockQuote (para "This is a quotation with a continuation") ] , "Quote tag" =: "<quote>Hello, world</quote>" =?> blockQuote (para $ text "Hello, world") + , "Verse tag" =: + T.unlines [ "<verse>" + , "" + , "Foo bar baz" + , " One two three" + , "" + , "</verse>" + , "<verse>Foo bar</verse>" + , "<verse>" + , "Foo bar</verse>" + , "<verse>" + , " Foo</verse>" + ] =?> + lineBlock [ "" + , text "Foo bar baz" + , text "\160\160One two three" + , "" + ] <> + lineBlock [ "Foo bar" ] <> + lineBlock [ "Foo bar" ] <> + lineBlock [ "\160\160\160Foo" ] , "Center" =: "<center>Hello, world</center>" =?> para (text "Hello, world") , "Right" =: "<right>Hello, world</right>" =?> para (text "Hello, world") , testGroup "Comments" |