From 59fa4eb17e1a518609a988cbecb8d6d9d74b6810 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 6 Feb 2019 02:25:24 +0300
Subject: Muse reader: test that block level markup does not break <verbatim>

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

(limited to 'test/Tests/Readers')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index e2b9ff27f..8fbe6a955 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -226,6 +226,13 @@ tests =
 
       , "Verbatim tag after text" =: "Foo <verbatim>bar</verbatim>" =?> para "Foo bar"
 
+      , "Verbatim tag escapes block level markup" =:
+        T.unlines [ "Foo <verbatim>bar"
+                  , "* Not a heading"
+                  , "</verbatim>baz"
+                  ] =?>
+        para "Foo bar\n* Not a heading\nbaz"
+
       , "Class tag" =: "<class name=\"foo\">bar</class>" =?> para (spanWith ("", ["foo"], []) "bar")
       , "Class tag without name" =: "<class>foobar</class>" =?> para (spanWith ("", [], []) "foobar")
 
-- 
cgit v1.2.3