Move cljs setup into separate file

This commit is contained in:
Miloslav Nenadal 2016-02-21 18:28:07 +01:00
parent 570dda3b0a
commit 1c3d4f1bc5
2 changed files with 18 additions and 14 deletions

View file

@ -0,0 +1,16 @@
(ns pjstadig.humane-test-output
(:require [cljs.test :refer-macros [run-all-tests run-tests]]
[cljs.pprint :as pp]
[pjstadig.macro :refer [do-report]]
[pjstadig.util :as util])
(:require-macros [pjstadig.assert-expr]))
(def pprint-map (get-method pp/simple-dispatch :map))
(defmethod pp/simple-dispatch :map [amap]
(if (record? amap)
(util/pprint-record amap)
(pprint-map amap)))
(util/define-fail-report)

View file

@ -1,23 +1,11 @@
(ns pjstadig.run-all
(:require [cljs.test :refer-macros [run-all-tests run-tests]]
[pjstadig.humane-test-output]
[pjstadig.humane-test-output.formatting-test]
[pjstadig.humane-test-output.records-test]
[cljs.pprint :as pp]
[pjstadig.macro :refer [do-report]]
[pjstadig.util :as util])
(:require-macros [pjstadig.assert-expr]))
[pjstadig.humane-test-output.records-test]))
(enable-console-print!)
(def pprint-map (get-method pp/simple-dispatch :map))
(defmethod pp/simple-dispatch :map [amap]
(if (record? amap)
(util/pprint-record amap)
(pprint-map amap)))
(util/define-fail-report)
(defn ^:export run []
(run-all-tests #"pjstadig.*-test"))