From 8390d935d8af944690736b7f2da5f2a58d97351b Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 23 Jul 2015 15:35:18 -0700 Subject: Updated tests and removed a skipSpaces.... we no longer need it with the change to toKey, and it is expensive to skip spaces after every inline. --- tests/Tests/Readers/Markdown.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'tests/Tests/Readers/Markdown.hs') diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs index d5ad07a18..5b39ae7e2 100644 --- a/tests/Tests/Readers/Markdown.hs +++ b/tests/Tests/Readers/Markdown.hs @@ -240,20 +240,20 @@ tests = [ testGroup "inline code" "# Header\n[header]\n\n[header ]\n\n[ header]" =?> headerWith ("header",[],[]) 1 "Header" <> para (link "#header" "" (text "header")) - <> para (text "[header" <> space <> text "]") - <> para (text "[" <> space <> text "header]") + <> para (link "#header" "" (text "header")) + <> para (link "#header" "" (text "header")) , "ATX header with trailing #s" =: "# Foo bar #\n[foo bar]\n\n[foo bar ]\n\n[ foo bar]" =?> headerWith ("foo-bar",[],[]) 1 "Foo bar" <> para (link "#foo-bar" "" (text "foo bar")) - <> para (text "[foo bar" <> space <> text "]") - <> para (text "[" <> space <> text "foo bar]") + <> para (link "#foo-bar" "" (text "foo bar")) + <> para (link "#foo-bar" "" (text "foo bar")) , "setext header" =: " Header \n=\n\n[header]\n\n[header ]\n\n[ header]" =?> headerWith ("header",[],[]) 1 "Header" <> para (link "#header" "" (text "header")) - <> para (text "[header" <> space <> text "]") - <> para (text "[" <> space <> text "header]") + <> para (link "#header" "" (text "header")) + <> para (link "#header" "" (text "header")) ] , testGroup "smart punctuation" [ test markdownSmart "quote before ellipses" -- cgit v1.2.3