@@ -44,7 +44,8 @@ validClose = TagClose <$> validXmlTagName
4444
4545validFlat :: Gen Token
4646validFlat = oneof
47− [ ContentChar <$> validXmlChar
47+ [ TagSelfClose <$> validXmlTagName <*> arbitrary
48+ , ContentChar <$> validXmlChar
4849 , ContentText <$> validXmlText
4950 , Comment . B.fromText <$> validXmlCommentText
5051 , Doctype <$> validXmlText