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

      (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]}]
  (make-parents dest-file)
  (with-open [out (writer dest-file)]
    (indent (sexp-as-element

                          :insecure? true})
         (catch ExceptionInfo e
           (.getData e)))
        (assoc :elapsed (/ (- (System/nanoTime) start) 1000000.0))
       (#(update % :body coerce-payload (get-in % [:headers "Content-Type"]))))))

(defn extract-data [{:keys [status body headers] :as resp} extractions]
