From 23ed97f081d2a5f1ba1d9525e74dfcfbdcfe6a20 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 2 Sep 2018 00:35:26 +0300
Subject: Muse reader: allow newline after opening "*" or "**"

Emacs Muse allows this.
---
 test/Tests/Readers/Muse.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'test/Tests/Readers')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 20603b8fb..ca3324e34 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -62,6 +62,14 @@ tests =
         "*Foo bar*" =?>
         para (emph . spcSep $ ["Foo", "bar"])
 
+      -- Emacs Muse allows this
+      , "Newline in the beginning of emphasis" =:
+        "*\nFoo bar*" =?>
+        para (emph ("Foo" <> space <> "bar"))
+      , "Newline in the end of emphasis" =:
+        "*Foo bar\n*" =?>
+        para (emph ("Foo" <> space <> "bar"))
+
       , "Comma after closing *" =:
         "Foo *bar*, baz" =?>
         para ("Foo " <> emph "bar" <> ", baz")
-- 
cgit v1.2.3