2016-02-02 14:33:32 -05:00
|
|
|
(ns uxbox.test-runner
|
|
|
|
|
(:require [cljs.test :as test]
|
2016-02-04 15:41:26 -05:00
|
|
|
[uxbox.data.workspace-tests]
|
|
|
|
|
[uxbox.util.geom-tests]))
|
2016-02-02 14:33:32 -05:00
|
|
|
|
|
|
|
|
(enable-console-print!)
|
|
|
|
|
|
|
|
|
|
(defn main
|
|
|
|
|
[]
|
|
|
|
|
(test/run-tests
|
|
|
|
|
(test/empty-env)
|
|
|
|
|
'uxbox.data.workspace-tests
|
2016-02-04 15:41:26 -05:00
|
|
|
'uxbox.util.geom-tests
|
2016-02-02 14:33:32 -05:00
|
|
|
))
|
|
|
|
|
|
|
|
|
|
(defmethod test/report [:cljs.test/default :end-run-tests]
|
|
|
|
|
[m]
|
|
|
|
|
(if (test/successful? m)
|
|
|
|
|
(set! (.-exitCode js/process) 0)
|
|
|
|
|
(set! (.-exitCode js/process) 1)))
|
|
|
|
|
|
|
|
|
|
(set! *main-cli-fn* main)
|
