@@ -74,3 +74,8 @@ spec = do
7474 it "canonicalizeTokens is idempotent" . property . forAllShrink arbitrary shrink $
7575 \tokens
7676 -> canonicalizeTokens tokens `shouldBe` canonicalizeTokens (canonicalizeTokens tokens)
77+
78+ describe "regression tests" $ do
79+ describe "parseTokens" $ do
80+ it "works on `<h1>Heading</h1>`" $ do
81+ parseTokens "<h1>Heading</h1>" `shouldBe` [TagOpen "h1" [], ContentText "Heading", TagClose "h1"]