4xx http status code should not trigger a bad_request event and exception_thrown hystrix event

src/clj_http_hystrix/core.clj

@@ -5,11 +5,11 @@
             [slingshot.slingshot :refer [get-thrown-object]]
             [slingshot.support :refer [wrap stack-trace]])
   (:import [com.netflix.hystrix HystrixCommand
-                                HystrixThreadPoolProperties
-                                HystrixCommandProperties
-                                HystrixCommand$Setter
-                                HystrixCommandGroupKey$Factory
-                                HystrixCommandKey$Factory]
+            HystrixThreadPoolProperties
+            HystrixCommandProperties
+            HystrixCommand$Setter
+            HystrixCommandGroupKey$Factory
+            HystrixCommandKey$Factory]
            [com.netflix.hystrix.exception HystrixBadRequestException]
            [org.slf4j MDC]))
 
@@ -111,18 +111,9 @@
         (let [req (merge defaults req)
               bad-request-pred (:hystrix/bad-request-pred req)
               fallback (:hystrix/fallback-fn req)
-              wrap-bad-request (fn [resp]
-                                 (if (bad-request-pred req resp)
-                                   (throw
-                                     (HystrixBadRequestException.
-                                       "Ignored bad request"
-                                       (wrap {:object resp
-                                              :message "Bad request pred"
-                                              :stack-trace (stack-trace)})))
-                                   resp))
               wrap-exception-response (fn [resp]
                                         ((http/wrap-exceptions (constantly resp))
-                                         (assoc req :throw-exceptions true)))
+                                         (assoc req :throw-exceptions (not (bad-request-pred req resp)))))
               configurator (configurator req)
               logging-context (or (MDC/getCopyOfContextMap) {})
               command (proxy [HystrixCommand] [configurator]
@@ -137,7 +128,6 @@
                           (-> req
                               (assoc :throw-exceptions false)
                               f
-                              wrap-bad-request
                               wrap-exception-response)))]
           (handle-exception #(.execute command) req))
         (f req)))))

test/clj_http_hystrix/core_test.clj

@@ -125,8 +125,7 @@
        (let [command-key (keyword (str (UUID/randomUUID)))]
          (dotimes [_ 30]
            (http/get url {:throw-exceptions false
-                          :hystrix/command-key command-key
-                          :hystrix/bad-request-pred client-error?}) => (contains {:status 400}))
+                          :hystrix/command-key command-key}) => (contains {:status 400}))
          (Thread/sleep 600) ;sleep to wait for Hystrix health snapshot
          (http/get url {:throw-exceptions false
                         :hystrix/command-key command-key}) => (contains {:status 200}))))
@@ -143,27 +142,11 @@
        (let [command-key (keyword (str (UUID/randomUUID)))]
          (dotimes [_ 30]
            (http/get url {:throw-exceptions true
-                          :hystrix/command-key command-key
-                          :hystrix/bad-request-pred client-error?}) => (throws ExceptionInfo))
+                          :hystrix/command-key command-key}) => (throws ExceptionInfo))
          (Thread/sleep 600) ;sleep to wait for Hystrix health snapshot
          (http/get url {:throw-exceptions false
                         :hystrix/command-key command-key}) => (contains {:status 200}))))
 
-(fact "errors will cause circuit to break if bad-request-pred is false"
-      (rest-driven
-       [{:method :GET
-         :url "/"}
-        {:status 400
-         :times 30}]
-       (let [command-key (keyword (str (UUID/randomUUID)))]
-         (dotimes [_ 30]
-           (http/get url {:throw-exceptions false
-                          :hystrix/command-key command-key
-                          :hystrix/bad-request-pred (constantly false)}) => (contains {:status 400}))
-         (Thread/sleep 600) ;sleep to wait for Hystrix health snapshot
-         (http/get url {:throw-exceptions false
-                        :hystrix/command-key command-key}) => (contains {:status 503}))))
-
 (fact "status-codes predicate matches only given status codes"
       (let [predicate (status-codes 100 200 300)]
         (predicate {} {:status 100}) => true
@@ -197,17 +180,17 @@
 
 (fact "add-hook with user-defaults will override base configuration, but not call configuration"
       (rest-driven
-        [{:method :GET
-          :url "/"}
-         {:status 500
-          :times 3}]
-        (make-hystrix-call {})
-        => (throws clojure.lang.ExceptionInfo "clj-http: status 500")
+       [{:method :GET
+         :url "/"}
+        {:status 500
+         :times 3}]
+       (make-hystrix-call {})
+       => (throws clojure.lang.ExceptionInfo "clj-http: status 500")
         ;set custom default for fallback-fn
-        (remove-hook)
-        (add-hook {:hystrix/fallback-fn (constantly "bar")})
-        (make-hystrix-call {}) => "bar"
-        (make-hystrix-call {:hystrix/fallback-fn (constantly "baz")}) => "baz")
+       (remove-hook)
+       (add-hook {:hystrix/fallback-fn (constantly "bar")})
+       (make-hystrix-call {}) => "bar"
+       (make-hystrix-call {:hystrix/fallback-fn (constantly "baz")}) => "baz")
       (remove-hook)
       (add-hook))
 
@@ -216,19 +199,19 @@
       ;verify hystrix is enabled by exceeding the default timeout (1000 ms)
       (http/with-additional-middleware [wrap-hystrix]
         (rest-driven
-          [{:method :GET
-            :url "/"}
-           {:status 200
-            :after 1500}]
-          (make-hystrix-call {})
-          => (throws clojure.lang.ExceptionInfo "clj-http: status 503")))
+         [{:method :GET
+           :url "/"}
+          {:status 200
+           :after 1500}]
+         (make-hystrix-call {})
+         => (throws clojure.lang.ExceptionInfo "clj-http: status 503")))
 
       ;verify custom defaults are supported
       (http/with-additional-middleware
         [(partial wrap-hystrix {:hystrix/fallback-fn (constantly {:status 404})})]
         (rest-driven
-          [{:method :GET
-            :url "/"}
-           {:status 500}]
-          (make-hystrix-call {})
-          => (throws clojure.lang.ExceptionInfo "clj-http: status 404"))))
+         [{:method :GET
+           :url "/"}
+          {:status 500}]
+         (make-hystrix-call {})
+         => (throws clojure.lang.ExceptionInfo "clj-http: status 404"))))