adding build and test capabilities to deps and build.clj

Author: fogus

build.clj

@@ -3,12 +3,56 @@
   (:require [clojure.tools.build.api :as b]))
 
 (def class-dir "target/classes")
-(def basis (b/create-basis {:project "deps.edn"}))
+(def basis (b/create-basis {:project "deps.edn"
+                            :aliases [:dev]}))
+
+(defn compile-tests
+  [_]
+  (b/delete {:path "target"})
+  (b/compile-clj {:basis basis
+                  :src-dirs ["src/test/clojure"]
+                  :class-dir class-dir,
+                  :ns-compile '[clojure.core.async-test
+                                clojure.core.pipeline-test
+                                clojure.core.async.buffers-test
+                                clojure.core.async.concurrent-test
+                                clojure.core.async.exceptions-test
+                                clojure.core.async.timers-test]}))
+
+(defn compile-tests-vthreads
+  [_]
+  (b/delete {:path "target"})
+  (b/compile-clj {:basis (b/create-basis {:project "deps.edn" :aliases [:dev :vthreads]})
+                  :src-dirs ["src/test/clojure"]
+                  :class-dir class-dir,
+                  :filter-nses '[clojure.core.async]
+                  :ns-compile '[clojure.core.async-test
+                                clojure.core.pipeline-test
+                                clojure.core.async.buffers-test
+                                clojure.core.async.concurrent-test
+                                clojure.core.async.exceptions-test
+                                clojure.core.async.timers-test]}))
+
+(defn compile-tests-no-vthreads
+  [_]
+  (b/delete {:path "target"})
+  (b/compile-clj {:basis (b/create-basis {:project "deps.edn" :aliases [:dev :no-vthreads]})
+                  :src-dirs ["src/test/clojure"]
+                  :class-dir class-dir,
+                  :filter-nses '[clojure.core.async]
+                  :ns-compile '[clojure.core.async-test
+                                clojure.core.pipeline-test
+                                clojure.core.async.buffers-test
+                                clojure.core.async.concurrent-test
+                                clojure.core.async.exceptions-test
+                                clojure.core.async.timers-test]}))
 
 (defn compile
   [_]
   (b/delete {:path "target"})
-  (b/compile-clj {:basis basis, :src-dirs ["src/main/clojure"], :class-dir class-dir,
+  (b/compile-clj {:basis basis
+                  :src-dirs ["src/main/clojure"]
+                  :class-dir class-dir
                   :filter-nses '[clojure.core.async]
                   :ns-compile '[clojure.core.async.impl.protocols
                                 clojure.core.async.impl.mutex

deps.edn

@@ -32,4 +32,16 @@
                      :doc-files ["doc/flow.md"]
                      :output-path "docs"
                      :html {:namespace-list :flat}}}
+  
+  :dev {:extra-paths ["src/test/clojure"]}
+  :aot {:extra-paths ["target/classes"]}
+  :vthreads {:jvm-opts ["-Dclojure.core.async.vthreads=target"]}
+  :no-vthreads {:jvm-opts ["-Dclojure.core.async.vthreads=avoid"]}
+
+  ;; clj -X:dev:test :dirs '["src/test/clojure"]'
+  ;; clj -X:aot:test :dirs '["target/classes"]' ???
+  :test {:extra-deps {io.github.cognitect-labs/test-runner 
+                      {:git/tag "v0.5.1" :git/sha "dfb30dd"}}
+         :main-opts ["-m" "cognitect.test-runner"]
+         :exec-fn cognitect.test-runner.api/test}
   }}

src/main/clojure/clojure/core/async.clj

@@ -71,7 +71,7 @@ unset - default to ioc when aot, always
 
 (alias 'core 'clojure.core)
 
-(if (not (or (dispatch/aot-vthreads?) (dispatch/runtime-vthreads?)))
+(when (not (or (dispatch/aot-vthreads?) (dispatch/runtime-vthreads?)))
   (require 'clojure.core.async.impl.go))
 
 (set! *warn-on-reflection* false)