datascript/dev/user.clj at master · Dangercoder/datascript · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
(ns user
  (:require
   [clj-reload.core :as reload]
   [clojure+.error]
   [clojure+.hashp]
   [clojure+.print]
   [clojure+.test]))

(clojure+.error/install!
  {:trace-transform
   (fn [trace]
     (take-while #(not (#{"Compiler" "clj-reload" "clojure-sublimed"} (:ns %))) trace))})

(clojure+.hashp/install!)
(clojure+.print/install!)
(clojure+.test/install!)

(reload/init
  {:dirs ["src" "bench" "test"]
   :no-reload '[user]})

(def reload
  reload/reload)

(defn test-all []
  (reload/reload {:only #"datascript\.test\.(?!cljs).*"})
  (clojure+.test/run))

(defn -test-main [_]
  (reload/reload {:only #"datascript\.test\.(?!cljs).*"})
  (let [{:keys [fail error]} (clojure+.test/run)]
    (System/exit (+ fail error))))