@@ -74,3 +74,8 @@ spec = do
74 it "canonicalizeTokens is idempotent" . property . forAllShrink arbitrary shrink $
74 it "canonicalizeTokens is idempotent" . property . forAllShrink arbitrary shrink $
76 -> canonicalizeTokens tokens `shouldBe` canonicalizeTokens (canonicalizeTokens tokens)
76 -> canonicalizeTokens tokens `shouldBe` canonicalizeTokens (canonicalizeTokens tokens)
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"]