Add a stress test for many attributes
commit2d8de638c3c513150404ffd8e286f6e320c4cd7f
authorNeil Mitchell <ndmitchell@gmail.com>
dateWed 30 Nov 2016, 19:08 (10 years ago)
parent6d010d4
src/Main.hs+2
@@ -43,6 +43,8 @@ main = do
4343 attributes (head $ children doc) === [Attribute "id" "1", Attribute "extra" "2"]
4444 map (`attributeBy` "id") (childrenBy doc "test") === map (fmap (Attribute "id")) [Just "1", Just "2", Just "4", Nothing]
4545
46+ Right _ <- return $ parse $ "<test " <> BS.unwords [BS.pack $ "x" ++ show i ++ "='value'" | i <- [1..10000]] <> " />"
47+ return ()
4648
4749a === b = if a == b then putStrLn "success" else fail "mismatch"
4850