               (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}
+                   [:testcase {:name (:test test) :time (:time test)}
                     (condp test nil
                       :error :>> #(vector :error {:message %})
                       :failure :>> #(vector :failure {:message %} (:resp test))

                                    (try (exec-test-case test opts)
                                         (catch Exception e
                                           (log/error e "failed executing test")
                                           (assoc test :done true :error (.getMessage e))))
                                    (assoc test :skipped "dependents failed"))
                                  :done true)
                                 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 (:request-time resp))]
          (if delta
            (assoc test :failure delta :resp resp)
            (do
