aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-09-02 00:35:26 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-09-02 01:03:43 +0300
commit23ed97f081d2a5f1ba1d9525e74dfcfbdcfe6a20 (patch)
treee1ab05c2df14bbb42d8adc7dc9681ea44eae24df /test
parentdb44ddfbde16d8aff0d62550014ac72b684b3eef (diff)
downloadpandoc-23ed97f081d2a5f1ba1d9525e74dfcfbdcfe6a20.tar.gz
Muse reader: allow newline after opening "*" or "**"
Emacs Muse allows this.
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/Muse.hs8
1 files changed, 8 insertions, 0 deletions
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")