 (deftest bulk-functions
   (checking
    "Bulk functions call the function, but always return their inputs"
-   (times 30)
+   (times 15)
    [input (gen/not-empty (gen/vector (gen-segment)))
     output (gen/resize 10 gen/any)]
    (let [called? (atom false)

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

(deftest multi-segment-return
  (checking
   "Multiple segments can be returned, attached to their root"
   (times 15)
   [input (gen-segment)
    output (gen/vector (segment-map))]
   (let [f (fn [segment] output)
