mirror of
https://github.com/penpot/penpot.git
synced 2025-01-10 08:50:57 -05:00
22 lines
470 B
Clojure
22 lines
470 B
Clojure
(ns uxbox.tests.main
|
|
(:require [cljs.test :as test]
|
|
[uxbox.tests.geom-types]
|
|
[uxbox.tests.shapes-state]))
|
|
|
|
(enable-console-print!)
|
|
|
|
(defn main
|
|
[]
|
|
(test/run-tests
|
|
(test/empty-env)
|
|
'uxbox.tests.geom-types
|
|
'uxbox.tests.shapes-state
|
|
))
|
|
|
|
(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)
|