mirror of
https://github.com/penpot/penpot.git
synced 2025-01-24 15:39:50 -05:00
31 lines
928 B
Clojure
31 lines
928 B
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; This Source Code Form is "Incompatible With Secondary Licenses", as
|
|
;; defined by the Mozilla Public License, v. 2.0.
|
|
;;
|
|
;; Copyright (c) 2020 Andrey Antukh <niwi@niwi.nz>
|
|
|
|
(ns user
|
|
(:require
|
|
[clojure.tools.namespace.repl :as repl]
|
|
[clojure.walk :refer [macroexpand-all]]
|
|
[clojure.pprint :refer [pprint]]
|
|
[clojure.test :as test]
|
|
[clojure.java.io :as io]
|
|
[clojure.repl :refer :all]))
|
|
|
|
(defn run-tests
|
|
([] (run-tests #"^sodi.tests.*"))
|
|
([o]
|
|
;; (repl/refresh)
|
|
(cond
|
|
(instance? java.util.regex.Pattern o)
|
|
(test/run-all-tests o)
|
|
|
|
(symbol? o)
|
|
(if-let [sns (namespace o)]
|
|
(do (require (symbol sns))
|
|
(test/test-vars [(resolve o)]))
|
|
(test/test-ns o)))))
|