test: remove http request retries from tests

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"}