diff options
author | Logan McGrath <81108848+ThisFieldWasGreen@users.noreply.github.com> | 2021-06-06 10:50:44 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-06-06 20:50:44 +0300 |
commit | 6d9bc845d5233c67e5eba3f54dcc7772ca1d79e2 (patch) | |
tree | 5f1529b2f002b18e27335bd08d42e84d09a0009e /tests | |
parent | 591fbe693d87b84c73b1839acdd424cbc12da3b3 (diff) | |
download | hakyll-6d9bc845d5233c67e5eba3f54dcc7772ca1d79e2.tar.gz |
Allow demotion of headers by a given amount (#855)
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Hakyll/Web/Html/Tests.hs | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/Hakyll/Web/Html/Tests.hs b/tests/Hakyll/Web/Html/Tests.hs index cd362f4..9ab10bc 100644 --- a/tests/Hakyll/Web/Html/Tests.hs +++ b/tests/Hakyll/Web/Html/Tests.hs @@ -20,7 +20,18 @@ tests :: TestTree tests = testGroup "Hakyll.Web.Html.Tests" $ concat [ fromAssertions "demoteHeaders" [ "<h2>A h1 title</h2>" @=? - demoteHeaders "<h1>A h1 title</h1>" + demoteHeaders "<h1>A h1 title</h1>" -- Assert single-step demotion + , "<h6>A h6 title</h6>" @=? + demoteHeaders "<h6>A h6 title</h6>" -- Assert maximum demotion is h6 + ] + + , fromAssertions "demoteHeadersBy" + [ "<h3>A h1 title</h3>" @=? + demoteHeadersBy 2 "<h1>A h1 title</h1>" + , "<h6>A h5 title</h6>" @=? + demoteHeadersBy 2 "<h5>A h5 title</h5>" -- Assert that h6 is the lowest possible demoted header. + , "<h4>A h4 title</h4>" @=? + demoteHeadersBy 0 "<h4>A h4 title</h4>" -- Assert that a demotion of @N < 1@ is a no-op. ] , fromAssertions "withUrls" |