 
 (sim/create-action-log sim-conn linear-cluster-sim)
 
-(time (mapv (fn [prun] @(:runner prun))
-            (->> #(sim/run-sim-process sim-uri (:db/id linear-cluster-sim))
-                 (repeatedly (:sim/processCount linear-cluster-sim))
-                 (into []))))
+(def pruns
+  (->> #(sim/run-sim-process sim-uri (:db/id linear-cluster-sim))
+       (repeatedly (:sim/processCount linear-cluster-sim))
+       (into [])))
 
 (testing "All tasks complete"
   (loop []

  (sim/create-test sim-conn
                   linear-cluster-model
                   {:db/id (d/tempid :test)
                    :test/duration 15000}))

(def linear-cluster-sim
  (sim/create-sim sim-conn

    :model/type :model.type/linear-cluster
    :model/n-peers 5
    :model/peek-peers 10
    :model/peer-rate 250
    :model/mean-ack-time 250
    :model/mean-completion-time 500}])

