git.iko.soy/typeable/hexml
on master help sign in
Check that a large number of tags work
cd4c10bNeil Mitchell
src/Main.hs+1
compare with master
unifiedsplit
@@ -44,6 +44,7 @@ main = do
44 map (`attributeBy` "id") (childrenBy doc "test") === map (fmap (Attribute "id")) [Just "1", Just "2", Just "4", Nothing]
44 map (`attributeBy` "id") (childrenBy doc "test") === map (fmap (Attribute "id")) [Just "1", Just "2", Just "4", Nothing]
45
45
46 Right _ <- return $ parse $ "<test " <> BS.unwords [BS.pack $ "x" ++ show i ++ "='value'" | i <- [1..10000]] <> " />"
46 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' />"
47 return ()
48 return ()
48
49
49a === b = if a == b then putStrLn "success" else fail "mismatch"
50a === b = if a == b then putStrLn "success" else fail "mismatch"