Use init form from test task.

hugoduncan · Oct 1, 2010 · d2677ff · d2677ff
1 parent 1210a0d
commit d2677ff
Showing 1 changed file with 2 additions and 9 deletions.
diff --git a/src/leiningen/test.clj b/src/leiningen/test.clj
@@ -6,11 +6,6 @@
         [leiningen.compile :only [eval-in-project]])
   (:import [java.io File]))
 
-(defn- init-args [java & files]
-  (doseq [f files]
-    (.setValue (.createArg java) "-i")
-    (.setValue (.createArg java) f)))
-
 (defn- form-for-hook-selectors [selectors]
   `(when (seq ~selectors)
      (if-let [add-hook# (resolve 'robert.hooke/add-hook)]
@@ -57,10 +52,8 @@ tests. If none are given, runs them all." ; TODO: update
       (throw (Exception. "Args must be either all namespaces or keywords.")))
     (eval-in-project project (form-for-testing-namespaces
                               nses (.getAbsolutePath result) (vec selectors))
-                     #(apply init-args %
-                             (if (seq selectors)
-                               ["@clojure/test.clj" "@robert/hooke.clj"]
-                               ["@clojure/test.clj"])))
+                     (concat ['require ''clojure.test] (if (seq selectors)
+                                                        [''robert.hooke])))
     (if (and (.exists result) (pos? (.length result)))
       (let [summary (read-string (slurp (.getAbsolutePath result)))
             success? (zero? (+ (:error summary) (:fail summary)))]