@@ -155,6 +155,11 @@ tests = [ testGroup "inline code"
155155 ]
156156 , testGroup "bare URIs"
157157 (map testBareLink bareLinkTests)
158+ , testGroup "Headers"
159+ [ "blank line before header" =:
160+ "\n# Header\n"
161+ =?> headerWith ("header",[],[]) 1 "Header"
162+ ]
158163 , testGroup "smart punctuation"
159164 [ test markdownSmart "quote before ellipses"
160165 ("'...hi'"