mirror of
https://github.com/penpot/penpot.git
synced 2025-01-10 00:40:30 -05:00
24 lines
541 B
Clojure
24 lines
541 B
Clojure
(ns uxbox.test-runner
|
|
(:require [cljs.test :as test]
|
|
[uxbox.state.shapes-tests]
|
|
[uxbox.data.workspace-tests]
|
|
[uxbox.util.geom-tests]))
|
|
|
|
(enable-console-print!)
|
|
|
|
(defn main
|
|
[]
|
|
(test/run-tests
|
|
(test/empty-env)
|
|
'uxbox.data.workspace-tests
|
|
'uxbox.util.geom-tests
|
|
'uxbox.state.shapes-tests
|
|
))
|
|
|
|
(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)
|