From 1c3d4f1bc5ad8d4b464fc1c3948b126c8c3b0663 Mon Sep 17 00:00:00 2001 From: Miloslav Nenadal Date: Sun, 21 Feb 2016 18:28:07 +0100 Subject: [PATCH] Move cljs setup into separate file --- src/pjstadig/humane_test_output.cljs | 16 ++++++++++++++++ test/pjstadig/run_all.cljs | 16 ++-------------- 2 files changed, 18 insertions(+), 14 deletions(-) create mode 100644 src/pjstadig/humane_test_output.cljs diff --git a/src/pjstadig/humane_test_output.cljs b/src/pjstadig/humane_test_output.cljs new file mode 100644 index 0000000..34dc435 --- /dev/null +++ b/src/pjstadig/humane_test_output.cljs @@ -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) + diff --git a/test/pjstadig/run_all.cljs b/test/pjstadig/run_all.cljs index 5f84c2e..428219b 100644 --- a/test/pjstadig/run_all.cljs +++ b/test/pjstadig/run_all.cljs @@ -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"))