building the test call for fntest execute

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
      `(with-open [results#
                   (java.io.FileWriter. ~output-file)]
         (binding [clojure.test/*test-out* results#]
           ('~format-fn (apply clojure.test/run-tests '~nses))))

      `('~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)]

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

java.lang.Exception: No namespace: clj-demgen.acceptance-test found
at clojure.core$the_ns.invoke(core.clj:3830)
at clojure.test$test_ns.invoke(test.clj:741)
at clojure.core$map$fn__4245.invoke(core.clj:2559)
at clojure.lang.LazySeq.sval(LazySeq.java:40)
at clojure.lang.LazySeq.seq(LazySeq.java:49)
at clojure.lang.Cons.next(Cons.java:39)
at clojure.lang.RT.boundedLength(RT.java:1654)
at clojure.lang.RestFn.applyTo(RestFn.java:130)
at clojure.core$apply.invoke(core.clj:626)
at clojure.test$run_tests.doInvoke(test.clj:762)
at clojure.lang.RestFn.applyTo(RestFn.java:137)
at clojure.core$apply.invoke(core.clj:624)
at fntest.nrepl$clojure_test_tests$fn__4609.invoke(nrepl.clj:116)
at fntest.nrepl$clojure_test_tests.invoke(nrepl.clj:116)
at fntest.nrepl$run_tests.invoke(nrepl.clj:136)
at fntest.core$test_in_container$f__4637.invoke(core.clj:103)
at fntest.core$with_deployments$fn__4625.invoke(core.clj:65)
at fntest.core$test_in_container$fn__4639.invoke(core.clj:104)
at fntest.core$with_jboss.invoke(core.clj:43)
at fntest.core$test_in_container.doInvoke(core.clj:104)
at clojure.lang.RestFn.applyTo(RestFn.java:142)
at clojure.core$apply.invoke(core.clj:624)
at leiningen.immutant.common$mapply.doInvoke(common.clj:136)
at clojure.lang.RestFn.invoke(RestFn.java:460)
at leiningen.immutant.test$test.invoke(test.clj:76)
at clojure.lang.AFn.applyToHelper(AFn.java:160)
at clojure.lang.AFn.applyTo(AFn.java:144)
at clojure.core$apply.invoke(core.clj:624)
at leiningen.immutant$subtask_with_resolved_project.invoke(immutant.clj:25)
at leiningen.immutant$immutant$fn__4659.invoke(immutant.clj:80)
at leiningen.immutant$immutant.doInvoke(immutant.clj:60)
at clojure.lang.RestFn.invoke(RestFn.java:464)
at clojure.lang.Var.invoke(Var.java:394)
at clojure.lang.AFn.applyToHelper(AFn.java:165)
at clojure.lang.Var.applyTo(Var.java:700)
at clojure.core$apply.invoke(core.clj:626)
at leiningen.core.main$partial_task$fn__4230.doInvoke(main.clj:234)
at clojure.lang.RestFn.applyTo(RestFn.java:139)
at clojure.lang.AFunction$1.doInvoke(AFunction.java:29)
at clojure.lang.RestFn.applyTo(RestFn.java:137)
at clojure.core$apply.invoke(core.clj:626)
at leiningen.core.main$apply_task.invoke(main.clj:281)
at lein_environ.plugin$write_env_to_file.invoke(plugin.clj:11)
at clojure.lang.Var.invoke(Var.java:394)