2016-06-21 11:31:35 -05:00
|
|
|
(ns uxbox.tests.main
|
2016-02-02 14:33:32 -05:00
|
|
|
(:require [cljs.test :as test]
|
2016-06-21 11:31:35 -05:00
|
|
|
[uxbox.tests.geom-types]
|
|
|
|
|
[uxbox.tests.shapes-state]))
|
2016-02-02 14:33:32 -05:00
|
|
|
|
|
|
|
|
(enable-console-print!)
|
|
|
|
|
|
|
|
|
|
(defn main
|
|
|
|
|
[]
|
|
|
|
|
(test/run-tests
|
|
|
|
|
(test/empty-env)
|
2016-06-21 11:31:35 -05:00
|
|
|
'uxbox.tests.geom-types
|
|
|
|
|
'uxbox.tests.shapes-state
|
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)
|
