diff options
Diffstat (limited to 'tests/Tests/Readers/Markdown.hs')
| -rw-r--r-- | tests/Tests/Readers/Markdown.hs | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs index c24d2293f..0661b4642 100644 --- a/tests/Tests/Readers/Markdown.hs +++ b/tests/Tests/Readers/Markdown.hs @@ -157,7 +157,7 @@ tests = [ testGroup "inline code" , "emph and strong emph alternating" =: "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx" =?> para (emph "xxx" <> space <> strong (emph "xxx") <> - space <> "xxx" <> space <> + space <> "xxx" <> softbreak <> emph "xxx" <> space <> strong (emph "xxx") <> space <> "xxx") , "emph with spaced strong" =: @@ -181,6 +181,13 @@ tests = [ testGroup "inline code" , "technically invalid comment" =: "<!-- pandoc --help -->" =?> rawBlock "html" "<!-- pandoc --help -->" + , test markdownGH "issue 2469" $ + "<\n\na>" =?> + para (text "<") <> para (text "a>") + ] + , testGroup "emoji" + [ test markdownGH "emoji symbols" $ + ":smile: and :+1:" =?> para (text "😄 and 👍") ] , "unbalanced brackets" =: "[[[[[[[[[[[[[[[hi" =?> para (text "[[[[[[[[[[[[[[[hi") @@ -318,7 +325,8 @@ tests = [ testGroup "inline code" ] , "laziness" =: "foo1\n : bar\nbaz\n : bar2\n" =?> - definitionList [ (text "foo1", [plain (text "bar baz"), + definitionList [ (text "foo1", [plain (text "bar" <> + softbreak <> text "baz"), plain (text "bar2")]) ] , "no blank space before first of two paragraphs" =: @@ -340,7 +348,8 @@ tests = [ testGroup "inline code" , testGroup "+compact_definition_lists" [ test markdownCDL "basic compact list" $ "foo1\n: bar\n baz\nfoo2\n: bar2\n" =?> - definitionList [ (text "foo1", [plain (text "bar baz")]) + definitionList [ (text "foo1", [plain (text "bar" <> softbreak <> + text "baz")]) , (text "foo2", [plain (text "bar2")]) ] ] |