         gen->DeleteBlock))
 
 
-(def ^:private batch-op-generators
-  (juxt gen->GetBlockBatch
-        gen->PutBlockBatch
-        gen->DeleteBlockBatch))
-
-
 (def ^:private erasable-op-generators
   (juxt gen->EraseStore))
 

  - `max-size`
    Maximum block size to generate, in bytes.
  - `operations`
    Kinds of operations to test - vector of `:basic`, `:batch`, `:erase`.
  - `concurrency`
    Maximum number of threads of operations to generate.
  - `iterations`

(defn- join-generators
  [ks]
  (let [op-gens (keep {:basic basic-op-generators
                       :erase erasable-op-generators}
                      ks)]
    (fn [ctx]
