Limit size of generators to avoid OOM

Exception in thread "XMLEventReader" java.lang.OutOfMemoryError: Java heap space
	at java.util.Arrays.copyOf(Arrays.java:3332)
	at java.lang.AbstractStringBuilder.expandCapacity(AbstractStringBuilder.java:137)
	at java.lang.AbstractStringBuilder.ensureCapacityInternal(AbstractStringBuilder.java:121)
	at java.lang.AbstractStringBuilder.append(AbstractStringBuilder.java:622)
	at java.lang.StringBuilder.append(StringBuilder.java:202)
	at scala.collection.mutable.StringBuilder.append(StringBuilder.scala:267)
	at scala.xml.parsing.MarkupParserCommon.xTakeUntil(MarkupParserCommon.scala:253)
	at scala.xml.parsing.MarkupParser.xCharData(MarkupParser.scala:379)
	at scala.xml.parsing.MarkupParser.content1(MarkupParser.scala:424)
	at scala.xml.parsing.MarkupParser.content(MarkupParser.scala:459)
	at scala.xml.parsing.MarkupParser.element1(MarkupParser.scala:588)
	at scala.xml.parsing.MarkupParser.content1(MarkupParser.scala:433)
	at scala.xml.parsing.MarkupParser.document(MarkupParser.scala:247)
	at scala.xml.pull.XMLEventReader$Parser.$anonfun$run$1(XMLEventReader.scala:96)
	at scala.xml.pull.XMLEventReader$Parser$$Lambda$2957/1828367442.apply(Unknown Source)
	at scala.xml.pull.ProducerConsumerIterator.interruptibly(XMLEventReader.scala:125)
	at scala.xml.pull.XMLEventReader$Parser.run(XMLEventReader.scala:96)
	at java.lang.Thread.run(Thread.java:745)

Author: ashawley

src/test/scala/scala/xml/DocumentGen.scala

@@ -11,7 +11,8 @@ trait DocumentGen extends NodeGen
     prolog <- genProlog
     dtd_ <- Arbitrary.arbitrary[dtd.DTD]
     elements <- Arbitrary.arbitrary[Elem]
-    misc <- Gen.listOf(genMisc)
+    n <- Gen.choose(0, 4)
+    misc <- Gen.listOfN(n, genMisc)
   } yield {
     new Document {
       children = prolog
@@ -42,7 +43,8 @@ trait DocumentGen extends NodeGen
   // it needed as arguments rather than from class fields.
   def genProlog: Gen[NodeSeq] = for {
     // xmlDecl <- genXmlDecl
-    misc <- Gen.listOf(genMisc)
+    n <- Gen.choose(0, 4)
+    misc <- Gen.listOfN(n, genMisc)
     // docType <- Arbitrary.arbitrary[dtd.DocType]
     // misc2 <- Gen.listOf(genMisc)
     // prolog2 <- Gen.const(Text(docType.toString) :: misc2)

src/test/scala/scala/xml/dtd/DTDGen.scala

@@ -14,7 +14,7 @@ trait DTDGen extends DeclGen
     )
     n <- Gen.choose(0, scala.math.sqrt(sz / 2).toInt)
     intSubset <- Gen.listOfN(n, Arbitrary.arbitrary[dtd.Decl])
-    notationDecls <- Arbitrary.arbitrary[Seq[NotationDecl]]
+    notationDecls <- Gen.listOfN(n, Arbitrary.arbitrary[NotationDecl])
   } yield {
     new DTD {
       externalID = extID