From b02decd826ade91afc455081bf3359c912449a1b Mon Sep 17 00:00:00 2001 From: eltrac Date: Thu, 15 Oct 2026 16:09:25 +0800 Subject: test: remove http request retries from tests --- src/weepinbell/processor/verifier.clj | 6 ++++-- test/weepinbell/verifier_test.clj | 3 ++- 2 files changed, 6 insertions(+), 3 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?) diff --git a/test/weepinbell/verifier_test.clj b/test/weepinbell/verifier_test.clj index d41516c..b30fd95 100644 --- a/test/weepinbell/verifier_test.clj +++ b/test/weepinbell/verifier_test.clj @@ -35,7 +35,8 @@ "http://localhost:38888/target")))))) (deftest verification-exceptional-cases-test - (with-redefs [weepinbell.http.client/default-options {:timeout 100}] + (with-redefs [weepinbell.http.client/default-options {:timeout 100} + weepinbell.processor.verifier/retry-times 0] (testing "source is not found" (with-webmention :new ["/source" {:status 404 :headers {"Content-Type" "text/plain"} -- cgit v1.2.3