more stuff

test/skirmish/cli/benchmark_test.clj

@@ -0,0 +1,30 @@
+(ns skirmish.cli.benchmark-test
+  (:require [skirmish.cli.benchmark :refer :all]
+            [midje.sweet :refer :all]
+            [clojure.core.async :as async]))
+
+(facts "creating simple orders"
+  (fact "buy order"
+    (let [buy-order (create-requests-payload-for-security 666 (str :equity/ibm) 1)
+          expt {:benchmark/id 1 :price 2922 :quantity 2476 :security ":equity/ibm" :type :buy}]
+      buy-order => expt));;
+  (fact "sell order"
+   (let [buy-order (create-requests-payload-for-security 667 (str :equity/ibm) 2)
+         expt {:benchmark/id 2 :price 2740 :quantity 2516 :security ":equity/ibm" :type :sell}]
+     buy-order => expt)))
+
+(facts "the utility functions"
+  (fact "no-more-then-n-simultaneously"
+     (let [simultatious (atom [])
+           input-chan (async/to-chan (range 10))
+           sleep-time #(+ (mod (+ (* 5142 %) 8765) 200) 50)
+           f (fn [i]
+               (swap! simultatious #(conj % {:id i :status :start :value 1}))
+               (Thread/sleep (sleep-time i))
+               (swap! simultatious #(conj % {:id i :status :end :value -1}))
+               i)
+           res (async/<!! (async/into [] (no-more-then-n-simultaneously f input-chan 3)))
+           simultatious-over-time (reductions #(+ %1 (:value %2)) 0 @simultatious)]
+       (apply max simultatious-over-time) => 3
+       (first simultatious-over-time) => 0
+       (last simultatious-over-time) => 0)))