24 lines
596 B
Text
24 lines
596 B
Text
|
(ns aero.lumo-test
|
||
|
|
(:require
|
||
|
|
aero.core-test
|
||
|
|
[cljs.test :refer-macros [deftest is testing run-tests]]))
|
||
|
|
|
||
|
|
(def resolve-p (atom nil))
|
||
|
|
|
||
|
|
(def p (new js/Promise (fn [resolve reject]
|
||
|
|
(reset! resolve-p resolve))))
|
||
|
|
|
||
|
|
(defmethod cljs.test/report [:cljs.test/default :end-run-tests]
|
||
|
|
[m]
|
||
|
|
(@resolve-p m))
|
||
|
|
|
||
|
|
(defn -main [& argv]
|
||
|
|
(println "Testing with lumo")
|
||
|
|
(run-tests 'aero.core-test)
|
||
|
|
(-> p
|
||
|
|
(.then (fn [m]
|
||
|
|
(.exit (js/require "process")
|
||
|
|
(if (cljs.test/successful? m)
|
||
|
|
0
|
||
|
|
1))))))
|