 (deftest multi-batch-size-single-rets
   (checking
    "It generalizes with a bigger batch size for single returns"
-   (times 50)
+   (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

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

(deftest parameterized-functions
  (checking
   "Functions can be parameterized via the event map"
   (times 30)
   [input (gen/vector (gen-segment))
    params (gen/vector (gen/resize 10 gen/any))]
   (let [f (fn [& args] {:result (or (butlast args) [])})
