         testable-impls (keep #(let [script (io/file root (str % "/bin/roundtrip"))]
                                 (when (.exists script) %))
                              (.list root))
-        forms (take 100 (repeatedly gen/ednable))]
+        forms (when-let [n (:gen opts)]
+                (take n (repeatedly gen/ednable)))]
     (doseq [impl testable-impls]
       (when (or (not impls)
                 (contains? impls impl))

            (case k
              "-impls" (assoc a :impls (set (mapv #(str "transit-" %) v)))
              "-enc" (assoc a :enc (keyword (first v)))
              a))
          {}
          (partition 2 (partition-by #(.startsWith % "-") args))))

                        (assoc-in [:tests :exemplar-file] (test-exemplar-files proc encoding))
                        (assoc-in [:tests :corner-case-edn] (test-corners-of-edn proc encoding))
                        (assoc-in [:tests :corner-case-transit-json]
                                  (test-corners-of-transit-json proc encoding)))
            results (if (:gen opts)
                      (assoc-in results [:tests :generated-edn]
                                (test-generated-edn (:generated-forms opts) proc encoding))
                      results)]
        (stop-process proc)
        results)
      (catch Throwable e
