Define selected-namespaces to make core more readable

technomancy · Nov 30, 2012 · c485365 · c485365
1 parent 8b3fb9e
commit c485365
Showing 1 changed file with 14 additions and 14 deletions.
diff --git a/src/leiningen/test.clj b/src/leiningen/test.clj
@@ -33,6 +33,19 @@
           (apply require :reload '~namespaces))
         ~(form-for-hook-selectors selectors)
         (let [failures# (atom #{})
+              selected-namespaces# ~(if (seq selectors)
+                                    `(distinct
+                                       (for [ns# '~namespaces
+                                             [_# var#] (ns-publics ns#)
+                                             :when (reduce (fn [acc# [selector# args#]]
+                                                             (or acc#
+                                                               (apply selector#
+                                                                      (merge (-> var# meta :ns meta)
+                                                                             (assoc (meta var#) ::var var#))
+                                                                      args#)))
+                                                     false ~selectors)]
+                                           ns#))
+                                      'namespaces)
               _# (leiningen.core.injected/add-hook
                   #'clojure.test/report
                   (fn [report# m# & args#]
@@ -45,20 +58,7 @@
                         (println "\nlein test" (ns-name (:ns m#))))
                       (apply report# m# args#))))
               summary# (binding [clojure.test/*test-out* *out*]
-                          (apply ~'clojure.test/run-tests
-                             ~(if (seq selectors)
-                                `(distinct
-                                   (for [ns# '~namespaces
-                                         [_# var#] (ns-publics ns#)
-                                         :when (reduce (fn [acc# [selector# args#]]
-                                                         (or acc#
-                                                           (apply selector#
-                                                                  (merge (-> var# meta :ns meta)
-                                                                         (assoc (meta var#) ::var var#))
-                                                                  args#)))
-                                                 false ~selectors)]
-                                       ns#))
-                                  'namespaces)))]
+                          (apply ~'clojure.test/run-tests selected-namespaces#))]
           (spit ".lein-failures" (pr-str @failures#))
           (when ~*exit-after-tests*
             (System/exit (+ (:error summary#) (:fail summary#))))))))