@@ -45,7 +45,14 @@ main = do
4545
4646 Right _ <- return $ parse $ "<test " <> BS.unwords [BS.pack $ "x" ++ show i ++ "='value'" | i <- [1..10000]] <> " />"
4747 Right _ <- return $ parse $ BS.unlines $ replicate 10000 "<test x='value' />"
48− return ()
48+
49+ let attrs = ["usd:jpy","test","extra","more","stuff","jpy:usd","xxx","xxxx"]
50+ Right doc <- return $ parse $ "<test " <> BS.unwords [x <> "='" <> x <> "'" | x <- attrs] <> ">middle</test>"
51+ [c] <- return $ childrenBy doc "test"
52+ forM_ attrs $ \a -> attributeBy c a === Just (Attribute a a)
53+ forM_ ["missing","gone","nothing"] $ \a -> attributeBy c a === Nothing
54+ putStrLn "Done"
55+
4956
5057a === b = if a == b then putStrLn "success" else fail "mismatch"
5158