@@ -34,6 +34,9 @@ tests =
3434 [ testGroup "para"
3535 [ "Simple sentence" =:
3636 "Hello, World!" =?> para "Hello, World!"
37+
38+ , "leading blank lines" =:
39+ "\n\ntext" =?> para "text"
3740 ]
3841
3942 , testGroup "header"
@@ -131,6 +134,10 @@ tests =
131134 "[Example|https://example.org]" =?>
132135 para (link "https://example.org" "" "Example")
133136
137+ , "URL in alias" =:
138+ "[See https://example.com|https://example.com]" =?>
139+ para (link "https://example.com" "" "See https://example.com")
140+
134141 , "email" =:
135142 "[mailto:me@example.org]" =?>
136143 para (link "mailto:me@example.org" "" "me@example.org")