diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-07-23 15:35:18 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-07-23 15:35:18 -0700 |
| commit | 8390d935d8af944690736b7f2da5f2a58d97351b (patch) | |
| tree | 90283b6890e4617936bd525ca59f90b2c16c3497 /tests | |
| parent | 35e6c893ec1f63aa2d1b0a5f128b9a6ab95f4b8c (diff) | |
| download | pandoc-8390d935d8af944690736b7f2da5f2a58d97351b.tar.gz | |
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.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Readers/Markdown.hs | 12 |
1 files changed, 6 insertions, 6 deletions
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" |