                                    (:color status))))))))
 
   (testing "should return green for 200"
-    (with-fake-resource "http://the_host/found" (fn [_] {:status 200
-                                                         :body ""})
+    (with-fake-resource "http://the_host/found" {:status 200
+                                                 :body ""}
       (sut/fetch-status (host-without-color-config "http://the_host/found")
                         timeout
                         (fn [status]

                                   (:message status)))))))

    (testing "for 302"
      (with-fake-resource "http://the_host/redirect" (fn [_] {:status 302
                                                              :body "Found"})
        (sut/fetch-status (host-without-color-config "http://the_host/redirect")
                          timeout
                          (fn [status]

                                 (:color status)))))))

  (testing "should fail if status key is configured but no JSON is provided"
    (with-fake-resource "http://the_host/status.json" {:status 200
                                                       :body "some body"}
      (sut/fetch-status (host-with-color-config "http://the_host/status.json" "status")
                        timeout
                        (fn [status]
