fntest 2

anonymous-gist.clj

(defmacro build-test-call [nses format to-file output-file]
  (let [format-fn (cond (= format "tap")
                        'clojure.test.tap/with-tap-output
                        (= format "junit")
                        'clojure.test.junit/with-junit-output
                        :else 'identity)]
    (if to-file
      `(quote (with-open [results#
                          (java.io.FileWriter. ~output-file)]
                (binding [clojure.test/*test-out* results#]
                  ('~format-fn (apply clojure.test/run-tests '~nses)))))

      `(quote ('~format-fn (apply clojure.test/run-tests ~nses))))))

(defn clojure-test-tests
  "Invokes the clojure.test test suite in the remote Clojure."
  [nses {:keys [format to-file output-file]}]
 (println "Running clojure.test tests...")
 (println "Testing namespaces in container:" nses)



 (if to-file
   (println "Writing to file " output-file))
 (println (str (cond (= format "tap")
                     "Producing TAP output"
                     (= format "junit")
                     "Producing junit output")))

 (execute (pr-str (backtick/template (apply require '~nses))))
 (let [call (build-test-call nses format to-file output-file)]

   (println "Executing:" call)

   (execute (pr-str (backtick/template
                           (clojure.test/successful?

Executing:
{code}
(clojure.core/with-open [results__4601__auto__ (java.io.FileWriter. output-file)](clojure.core/binding [clojure.test/test-out results__4601__auto__] %28%28quote identity%29 %28clojure.core/apply clojure.test/run-tests %28quote nses%29%29%29))
{code}