From 0c7d0757d6d69403fdcf5bc0fba2e6c0dfbf8b6e Mon Sep 17 00:00:00 2001
From: Ophir Lifshitz <hangfromthefloor@gmail.com>
Date: Thu, 23 Jul 2015 02:31:03 -0400
Subject: [PATCH] Markdown Reader: Add implicit header ref tests for headers
with spaces
---
tests/Tests/Readers/Markdown.hs | 20 ++++++++++++++++++++
1 file changed, 20 insertions(+)
diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs
index a5425ffb3..78891ab54 100644
--- a/tests/Tests/Readers/Markdown.hs
+++ b/tests/Tests/Readers/Markdown.hs
@@ -225,6 +225,26 @@ tests = [ testGroup "inline code"
"# [hi]\n"
=?> headerWith ("hi",[],[]) 1 "[hi]"
]
+ , testGroup "Implicit header references"
+ [ "ATX header without trailing #s" =:
+ "# 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]")
+ , "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]")
+ , "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]")
+ ]
, testGroup "smart punctuation"
[ test markdownSmart "quote before ellipses"
("'...hi'"