 (deftest throws-exception
   (checking
    "Functions that throw exceptions pass the exception object back"
-   (times 50)
+   (times 30)
    [input (gen/vector (gen-segment))]
    (let [f (fn [segment] (throw (ex-info "exception" {:val 42})))
          event {:onyx.core/batch input}

(deftest singe-segment-return
  (checking
   "A single returned segment attaches to its root"
   (times 50)
   [input (gen-segment)
    output (segment-map)]
   (let [f (fn [segment] output)

(deftest multi-batch-size-single-rets
  (checking
   "It generalizes with a bigger batch size for single returns"
   (times 30)
   ;; Uses a unique mapping of keys to values to look up an
   ;; input for an output with no collisions.
   [input (gen/vector (gen/hash-map
