From 5d74932578ddaa564eae88158bfb4c7f92dc7dd5 Mon Sep 17 00:00:00 2001
From: Alexander <ilabdsf@gmail.com>
Date: Wed, 23 Aug 2017 09:12:34 +0300
Subject: Muse reader: avoid crashes on multiparagraph inline tags (#3866)

Test checks that behavior is consistent with Amusewiki
---
 test/Tests/Readers/Muse.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'test/Tests/Readers')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index dac980c90..8d4ad0b15 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -60,6 +60,16 @@ tests =
 
       , "Tag soup" =: "foo <em> bar </strong>baz" =?> para "foo <em> bar </strong>baz"
 
+      -- Both inline tags must be within the same paragraph
+      , "No multiparagraph inline tags" =:
+        T.unlines [ "First line"
+                  , "<em>Second line"
+                  , ""
+                  , "Fourth line</em>"
+                  ] =?>
+        para "First line <em>Second line" <>
+        para "Fourth line</em>"
+
       , "Linebreak" =: "Line <br>  break" =?> para ("Line" <> linebreak <> "break")
 
       , "Code" =: "=foo(bar)=" =?> para (code "foo(bar)")
-- 
cgit v1.2.3