summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-07-23 15:35:18 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-07-23 15:35:18 -0700
commit8390d935d8af944690736b7f2da5f2a58d97351b (patch)
tree90283b6890e4617936bd525ca59f90b2c16c3497 /tests
parent35e6c893ec1f63aa2d1b0a5f128b9a6ab95f4b8c (diff)
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.hs12
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"