git.iko.soy/typeable/html-parse
on master help sign in
Fix generation of arbitrary tokens (in tests).
6abc0b4Matthias Fischmann
tests/Text/HTML/ParserSpec.hs+2−1
compare with master
unifiedsplit
@@ -44,7 +44,8 @@ validClose = TagClose <$> validXmlTagName
44
44
45validFlat :: Gen Token
45validFlat :: Gen Token
46validFlat = oneof
46validFlat = oneof
47+ [ TagSelfClose <$> validXmlTagName <*> arbitrary
47− [ ContentChar <$> validXmlChar
48+ , ContentChar <$> validXmlChar
48 , ContentText <$> validXmlText
49 , ContentText <$> validXmlText
49 , Comment . B.fromText <$> validXmlCommentText
50 , Comment . B.fromText <$> validXmlCommentText
50 , Doctype <$> validXmlText
51 , Doctype <$> validXmlText