   (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

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

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

              (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) :classname src-file :time (:time test)}
                    (condp test nil
                      :error :>> #(vector :error {:message %})
                      :failure :>> #(vector :failure {:message %} (:resp test))
