diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2019-10-15 16:36:05 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2019-10-15 16:36:05 +0300 |
| commit | a1977dd2d67e6ccbafaf7ac25f941bdd399469fa (patch) | |
| tree | e6fcf7e7b056d78218a0052bef1bd741a574f9ef /test | |
| parent | a0aeb135b39687c1a1c6adb4aa6b01dcc9c6e867 (diff) | |
| download | pandoc-a1977dd2d67e6ccbafaf7ac25f941bdd399469fa.tar.gz | |
Muse reader: do not allow closing asterisks to be followed by "*"
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 26 |
1 files changed, 23 insertions, 3 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 39f7bf903..ab48fd415 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -139,11 +139,31 @@ tests = , "Asterisk between words does not terminate emphasis" =: "*foo*bar*" =?> - para (emph $ "foo*bar") + para (emph "foo*bar") - , "Asterisks between words do not terminate strong" =: + , "Two asterisks between words do not terminate emphasis" =: + "*foo**bar*" =?> + para (emph "foo**bar") + + , "Three asterisks between words do not terminate emphasis" =: + "*foo***bar*" =?> + para (emph "foo***bar") + + , "Two asterisks between words do not terminate strong" =: "**foo**bar**" =?> - para (strong $ "foo**bar") + para (strong "foo**bar") + + , "Three asterisks between words do not terminate strong" =: + "**foo***bar**" =?> + para (strong "foo***bar") + + , "Three asterisks between words do not terminate strong emphasis" =: + "***foo***bar***" =?> + para (strong . emph $ "foo***bar") + + , "Six asterisks between words do not terminate strong emphasis" =: + "***foo******bar***" =?> + para (strong . emph $ "foo******bar") , test emacsMuse "Underline" ("_Underline_" =?> para (underlineSpan "Underline")) |