14 lines
381 B
Clojure
14 lines
381 B
Clojure
(ns portal.test-runner
|
|
(:require [cljs.test :refer [run-tests]]
|
|
[portal.runtime.cson-test]
|
|
[portal.runtime.fs-test]))
|
|
|
|
(defmethod cljs.test/report [:cljs.test/default :end-run-tests] [m]
|
|
(when-not (cljs.test/successful? m)
|
|
(.exit js/process 1)))
|
|
|
|
(defn -main []
|
|
(run-tests 'portal.runtime.cson-test
|
|
'portal.runtime.fs-test))
|
|
|
|
(-main)
|