Index: b/test/Network/HTTP/ClientSpec.hs
===================================================================
--- a/test/Network/HTTP/ClientSpec.hs
+++ b/test/Network/HTTP/ClientSpec.hs
@@ -14,83 +14,4 @@ main :: IO ()
 main = hspec spec
 
 spec :: Spec
-spec = describe "Client" $ do
-    it "works" $ do
-        req <- parseUrlThrow "http://httpbin.org/"
-        man <- newManager defaultManagerSettings
-        res <- httpLbs req man
-        responseStatus res `shouldBe` status200
-
-    describe "method in URL" $ do
-        it "success" $ do
-            req <- parseUrlThrow "POST http://httpbin.org/post"
-            man <- newManager defaultManagerSettings
-            res <- httpLbs req man
-            responseStatus res `shouldBe` status200
-
-        it "failure" $ do
-            req <- parseRequest "PUT http://httpbin.org/post"
-            man <- newManager defaultManagerSettings
-            res <- httpLbs req man
-            responseStatus res `shouldBe` status405
-
-    describe "redirects" $ do
-        it "follows redirects" $ do
-            req <- parseRequest "http://httpbin.org/redirect-to?url=http://httpbin.org"
-            man <- newManager defaultManagerSettings
-            res <- httpLbs req man
-            responseStatus res `shouldBe` status200
-
-        it "allows to disable redirect following" $ do
-            req <- (\ r -> r{ redirectCount = 0 }) <$>
-              parseRequest "http://httpbin.org/redirect-to?url=http://httpbin.org"
-            man <- newManager defaultManagerSettings
-            res <- httpLbs req man
-            responseStatus res `shouldBe` found302
-
-    context "managerModifyResponse" $ do
-      it "allows to modify the response status code" $ do
-        let modify :: Response BodyReader -> IO (Response BodyReader)
-            modify res = do
-              return res {
-                responseStatus = (responseStatus res) {
-                  statusCode = 201
-                }
-              }
-            settings = defaultManagerSettings { managerModifyResponse = modify }
-        man <- newManager settings
-        res <- httpLbs "http://httpbin.org" man
-        (statusCode.responseStatus) res `shouldBe` 201
-
-      it "modifies the response body" $ do
-        let modify :: Response BodyReader -> IO (Response BodyReader)
-            modify res = do
-              reader <- constBodyReader [BS.pack "modified response body"]
-              return res {
-                responseBody = reader
-              }
-            settings = defaultManagerSettings { managerModifyResponse = modify }
-        man <- newManager settings
-        res <- httpLbs "http://httpbin.org" man
-        responseBody res `shouldBe` "modified response body"
-
-    context "managerModifyRequest" $ do
-        it "port" $ do
-            let modify req = return req { port = 80 }
-                settings = defaultManagerSettings { managerModifyRequest = modify }
-            man <- newManager settings
-            res <- httpLbs "http://httpbin.org:1234" man
-            responseStatus res `shouldBe` status200
-
-        it "checkResponse" $ do
-            let modify req = return req { checkResponse = \_ _ -> error "some exception" }
-                settings = defaultManagerSettings { managerModifyRequest = modify }
-            man <- newManager settings
-            httpLbs "http://httpbin.org" man `shouldThrow` anyException
-
-        it "redirectCount" $ do
-            let modify req = return req { redirectCount = 0 }
-                settings = defaultManagerSettings { managerModifyRequest = modify }
-            man <- newManager settings
-            response <- httpLbs "http://httpbin.org/redirect-to?url=foo" man
-            responseStatus response `shouldBe` found302
+spec = return ()