   (sim/create-test sim-conn
                    linear-cluster-model
                    {:db/id (d/tempid :test)
-                    :test/duration 15000}))
+                    :test/duration (u/hours->msec 1)}))
 
 (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 200
    :model/mean-ack-time 250
    :model/mean-completion-time 500}])


      (when-not (= result (* n-jobs tasks-per-job))
        (recur)))))

(doseq [prun pruns] (future-cancel (:runner prun)))

(def sim-db (d/db sim-conn))

(def result-db (d/db (:conn log)))
