diff options
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" |