        read-string
        10000]])
 
-(defn- config
+(defn config
+  "Returns runner configuration derived from system properties."
   []
   (reduce
    (fn [m [prop path coerce default]]

        ret (reduce
             (fn [{:keys [failures iters nresults]} result]
               (when (:exception result)
                 (.printStackTrace ^Throwable (:exception result)))
               (if (:exception result)
                 (prn result)
                 (progress))
               {:failures (+ failures (if (:exception result) 1 0))
                :iters (+ iters (:iter result))


(ns clojure.test.generative.runner
  (:require
   [clojure.tools.namespace :as ns]
   [clojure.data.generators :as gen]
   [clojure.test.generative :as tgen]))
