       (print (if (:success test) "\u001B[32m [v] " "\u001B[31m [x] "))
       (println (:test test) "\t" (or result :success) "\u001B[0m"))))
 
-(defn junit-report [dest-file {:keys [suites]}]
+(defn junit-report [dest-file src-file {:keys [suites]}]
   (make-parents dest-file)
   (with-open [out (writer dest-file)]
     (indent (sexp-as-element

              (for [{:keys [name tests total failure error skipped]} suites]
                [:testsuite {:name name :errors error :tests total :failures failure}
                 (for [test tests]
                   [:testcase {:name (:test test) :time 0}
                    (condp test nil
                      :error :>> #(vector :error {:message %})
                      :failure :>> #(vector :failure {:message %} (:resp test))

  (let [test (if (:error test) test (prepare-test test @opts))]
    (if (:error test) test
        (let [resp (mk-request test)
              delta (verify-response resp test)
              test (assoc test :time (:elapsed resp))]
          (if delta
            (assoc test :failure delta :resp resp)
            (do
