Check that a large number of tags work
commitcd4c10b1eca2e09518c5c4a11ac821460b614704
authorNeil Mitchell <ndmitchell@gmail.com>
dateWed 30 Nov 2016, 19:08 (10 years ago)
parentec36b50
src/Main.hs+1
@@ -44,6 +44,7 @@ main = do
4444 map (`attributeBy` "id") (childrenBy doc "test") === map (fmap (Attribute "id")) [Just "1", Just "2", Just "4", Nothing]
4545
4646 Right _ <- return $ parse $ "<test " <> BS.unwords [BS.pack $ "x" ++ show i ++ "='value'" | i <- [1..10000]] <> " />"
47+ Right _ <- return $ parse $ BS.unlines $ replicate 10000 "<test x='value' />"
4748 return ()
4849
4950a === b = if a == b then putStrLn "success" else fail "mismatch"