   transit enconding, record the time in milliseconds that it takes
   to roundtrip all of the transit messages."
   [transits proc encoding]
-  (println "collecting timing information...")
   (dotimes [x 200]
     (mapv #(roundtrip-transit proc % encoding) transits))
   (let [start (System/nanoTime)]

  (let [transit-exemplars (exemplar-transit encoding)]
    (filter #((:pred %) proc encoding opts)
            [{:pred (constantly true)
              :path [:tests :exemplar-file]
              :test #(test-transit transit-exemplars proc encoding)}
             {:pred (constantly true)
              :path [:tests :corner-case-edn]
              :test #(test-edn cc/forms proc encoding)}
             {:pred (fn [_ e _] (= e :json))
              :path [:tests :corner-case-transit-json]
              :test #(test-transit (map (fn [s] (.getBytes s)) cc/transit-json) proc encoding)}
             {:pred (fn [_ _ o] (:gen o))
              :path [:tests :generated-edn]
              :test #(test-edn (:generated-forms opts) proc encoding)}
             {:pred (fn [_ _ o] (:time o))
              :path [:time]
              :test #(let [ms (test-timing transit-exemplars proc encoding)]
                       {:ms ms

                 :encoding encoding}]
    (try
      (let [tests (filter-tests proc encoding opts)
            results (reduce (fn [r {:keys [path test desc]}]
                              (println (format "running \"%s\" test for %s encoding..."
                                               desc
                                               (name encoding)))
                              (assoc-in r path (test)))
                            results
                            tests)]
