From e6f767b581742343bd7319bcc4c3632e18c58a70 Mon Sep 17 00:00:00 2001
From: Alexander <ilabdsf@gmail.com>
Date: Fri, 25 Aug 2017 17:09:28 +0300
Subject: Muse reader: parse <verse> tag (#3872)

---
 test/Tests/Readers/Muse.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'test')

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"
-- 
cgit v1.2.3