diff options
Diffstat (limited to 'test/Tests/Readers/Muse.hs')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 492b5baaa..72e3f9be5 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -66,10 +66,10 @@ tests = -- Emacs Muse allows this , "Newline in the beginning of emphasis" =: "*\nFoo bar*" =?> - para (emph ("Foo" <> space <> "bar")) + para (text "*\nFoo bar*") , "Newline in the end of emphasis" =: "*Foo bar\n*" =?> - para (emph ("Foo" <> space <> "bar")) + para (text "*Foo bar\n*") , "Comma after closing *" =: "Foo *bar*, baz" =?> @@ -101,6 +101,14 @@ tests = "***strength***" =?> para (strong . emph $ "strength") + , "Strong inside emphasis" =: + "*foo **bar** baz*" =?> + para (emph (text "foo " <> strong (text "bar") <> text " baz")) + + , "Emphasis inside strong" =: + "**foo *bar* baz**" =?> + para (strong (text "foo " <> emph (text "bar") <> text " baz")) + , test emacsMuse "Underline" ("_Underline_" =?> para (underlineSpan "Underline")) |