aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2019-10-15 01:55:32 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2019-10-15 01:55:32 +0300
commitd5c13dd4383e4809c4a6e935398a4bfa6e1b04e5 (patch)
tree80f33803ce2191705d06a7e2cbddb6b84e053d18 /test/Tests
parent13e0ac1104cc77f15e85fea83f54b6d6ae65271d (diff)
downloadpandoc-d5c13dd4383e4809c4a6e935398a4bfa6e1b04e5.tar.gz
Muse reader: do not split series of asterisks into symbols and emphasis
Fixes #5821
Diffstat (limited to 'test/Tests')
-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 6a9919233..39f7bf903 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -133,10 +133,18 @@ tests =
"**foo *bar* baz**" =?>
para (strong (text "foo " <> emph (text "bar") <> text " baz"))
+ , "Opening asterisk can't be preceded by another one" =:
+ "**foo*" =?>
+ para "**foo*"
+
, "Asterisk between words does not terminate emphasis" =:
"*foo*bar*" =?>
para (emph $ "foo*bar")
+ , "Asterisks between words do not terminate strong" =:
+ "**foo**bar**" =?>
+ para (strong $ "foo**bar")
+
, test emacsMuse "Underline"
("_Underline_" =?> para (underlineSpan "Underline"))