diff options
| author | eltrac <hi@eltr.ac> | 2026-10-15 16:09:25 +0800 |
|---|---|---|
| committer | eltrac <hi@eltr.ac> | 2026-10-15 16:09:41 +0800 |
| commit | b02decd826ade91afc455081bf3359c912449a1b (patch) | |
| tree | d5063cdfb8c0a096eaa1267bafd62b674e2e66fb /src | |
| parent | 9aae86ada1418058b54bd2b3b0a05f98ef04ba63 (diff) | |
test: remove http request retries from tests
Diffstat (limited to 'src')
| -rw-r--r-- | src/weepinbell/processor/verifier.clj | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/weepinbell/processor/verifier.clj b/src/weepinbell/processor/verifier.clj index 3053b82..e6415f8 100644 --- a/src/weepinbell/processor/verifier.clj +++ b/src/weepinbell/processor/verifier.clj @@ -55,14 +55,16 @@ ;; true if all verified
:else true)))
+(def retry-times 3)
+
(defn verify
[data]
(when (:ok? data)
(let [{:keys [id wm new?]} data
{:keys [s t]} wm
- source-resp (client/with-retry 3 5
+ source-resp (client/with-retry retry-times 5
(client/get s {:headers {"Range" "bytes=0-1048575"}}))
- target-resp (client/with-retry 3 5 (client/head t))
+ target-resp (client/with-retry retry-times 5 (client/head t))
verified? (verify-mention id @source-resp @target-resp s t)]
(-> data
(assoc :verified? verified?)
|