 
 
 
+
+
+
+
+
+
 ;;; Load testing using core.async (@mhjort) ;;;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+(def ping-scenario
+  {:name "Ping scenario"
+   :requests [{:name "Ping endpoint" :http "http://localhost:8080/ping"}]})
+
+(def options
+  {:requests 200 :timeout-in-ms 90})
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 
 
 




;STEP 4
(defn http-get [url]
  (fn []

    (doseq [c cs]
      (go (async-http-get url c)))
    (repeatedly concurrency #(first (alts!! cs)))))





















; (STEP 6 "With timeout")
