 (deftest apply-on-url
   (let [u-client (client/wrap-url async-identity-client)
         resp (promise)
-        execption (promise)
+        exception (promise)
         _ (u-client {:url "http://google.com:8080/baz foo?bar=bat bit?"}
-                    resp execption)]
+                    resp exception)]
     (is (= :http (:scheme @resp)))
     (is (= "google.com" (:server-name @resp)))
     (is (= 8080 (:server-port @resp)))
     (is (= "/baz%20foo" (:uri @resp)))
     (is (= "bar=bat%20bit?" (:query-string @resp)))
-    (is (not (realized? execption)))))
+    (is (not (realized? exception)))))
 
 (deftest pass-on-no-url
   (let [u-client (client/wrap-url identity)

  (let [client (fn [req respond raise] (respond {:status 200}))
        e-client (client/wrap-exceptions client)
        resp (promise)
        execption (promise)
        _ (e-client {} resp execption)]
    (is (= 200 (:status @resp)))
    (is (not (realized? execption)))))

(deftest pass-on-exceptional-when-surpressed
  (let [client (fn [req] {:status 500})

                 (respond {:status 302 :body (:body req)}))
        r-client (client/wrap-redirects client)
        resp (promise)
        exception (promise)
        _ (r-client {:body "ok" :follow-redirects false} resp exception)]
    (is (= 302 (:status @resp)))
    (is (= "ok" (:body @resp)))
    (is (nil? (:trace-redirects @resp)))
    (is (not (realized? exception)))))

(deftest throw-on-exceptional
  (let [client (fn [req] {:status 500})
