aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers/Muse.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Tests/Readers/Muse.hs')
-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"))