diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-27 23:34:09 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-27 23:35:11 +0300 |
| commit | d28dca57db5a72e2ebb17dccc6c279d962f6711f (patch) | |
| tree | 757b24cb4dd6aa911641291b276a8633ca240820 /test/Tests | |
| parent | dc77d36a7fa0f3427878592435a244467fd9c4b5 (diff) | |
| download | pandoc-d28dca57db5a72e2ebb17dccc6c279d962f6711f.tar.gz | |
Muse reader: forbid whitespace after opening and before closing markup elements
See https://github.com/melmothx/text-amuse/issues/44 for discussion on these rules
Diffstat (limited to 'test/Tests')
| -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")) |