{:deps {local/deps {:local/root "."}} :paths ["src" "test"] :tasks {:requires ([clojure.string :as str]) :init (do (defn kaocha [alias args] (apply shell "bin/kaocha" alias args)) (defn test-cljs [alias args] (apply clojure (str/join ["-M:test:cljs-test-runner" alias]) args))) test-clj-9 {:task (kaocha :clj-1-9 *command-line-args*)} test-clj-10 {:task (kaocha :clj-1-10 *command-line-args*)} test-clj-11 {:task (kaocha :clj-1-11 *command-line-args*)} test-clj {:depends [test-clj-9 test-clj-10 test-clj-11]} test-cljs-9 {:task (test-cljs :clj-1-9 *command-line-args*)} test-cljs-10 {:task (test-cljs :clj-1-10 *command-line-args*)} test-cljs-11 {:task (test-cljs :clj-1-11 *command-line-args*)} test-cljs {:depends [#_test-cljs-9 test-cljs-10 test-cljs-11]} test-bb {:requires ([clojure.test :as t] [net.cgrand.xforms-test]) :task (t/run-tests 'net.cgrand.xforms-test)} test-all {:depends [test-bb test-clj test-cljs]} perf-bb {:requires ([net.cgrand.xforms :as x]) :task (let [n 10000 m (zipmap (range 100) (range)) mapping (map (fn [[k v]] [k (inc v)])) xforing (x/for [[k v] _] [k (inc v)])] (time (dotimes [_ n] (into {} mapping m))) (time (dotimes [_ n] (into {} xforing m))) (time (dotimes [_ n] (x/into {} xforing m))))}}}