[DHG_packages] 04/06: refresh haskell-http-client patch

[Sean Whitton]

This is an automated email from the git hooks/post-receive script.

spw-guest pushed a commit to branch LTS-6
in repository DHG_packages.

commit 0c909eb7bc0c5aebae82e6d863fdedd37f75ccbc
Author: Sean Whitton <spwhitton at spwhitton.name>
Date:   Wed Jun 1 10:28:53 2016 +0900

    refresh haskell-http-client patch
---
 p/haskell-http-client/debian/changelog             |  5 ++++-
 .../disable-external-network-connection-test.diff  | 26 ++++++++++++++++++++--
 2 files changed, 28 insertions(+), 3 deletions(-)

diff --git a/p/haskell-http-client/debian/changelog b/p/haskell-http-client/debian/changelog
index 4c62db0..5373574 100644
--- a/p/haskell-http-client/debian/changelog
+++ b/p/haskell-http-client/debian/changelog
@@ -7,7 +7,10 @@ haskell-http-client (0.4.28-1) unstable; urgency=medium
   [ Joachim Breitner ]
   * New upstream release
 
- -- Joachim Breitner <nomeata at debian.org>  Sun, 29 May 2016 12:15:38 +0200
+  [ Sean Whitton ]
+  * Refresh patch.
+
+ -- Sean Whitton <spwhitton at spwhitton.name>  Wed, 01 Jun 2016 10:10:02 +0900
 
 haskell-http-client (0.4.26.2-1) unstable; urgency=medium
 
diff --git a/p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff b/p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff
index a201e4b..9e79448 100644
--- a/p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff
+++ b/p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff
@@ -1,8 +1,8 @@
 --- a/test/Network/HTTP/ClientSpec.hs
 +++ b/test/Network/HTTP/ClientSpec.hs
-@@ -11,16 +11,4 @@
+@@ -12,38 +12,4 @@ main :: IO ()
  main = hspec spec
-
+ 
  spec :: Spec
 -spec = describe "Client" $ do
 -    it "works" $ withSocketsDo $ do
@@ -11,10 +11,32 @@
 -        res <- httpLbs req man
 -        responseStatus res `shouldBe` status200
 -
+-    describe "method in URL" $ do
+-        it "success" $ withSocketsDo $ do
+-            req <- parseUrl "POST http://httpbin.org/post"
+-            man <- newManager defaultManagerSettings
+-            res <- httpLbs req man
+-            responseStatus res `shouldBe` status200
+-
+-        it "failure" $ withSocketsDo $ do
+-            req' <- parseUrl "PUT http://httpbin.org/post"
+-            let req = req'
+-                    { checkStatus = \_ _ _ -> Nothing
+-                    }
+-            man <- newManager defaultManagerSettings
+-            res <- httpLbs req man
+-            responseStatus res `shouldBe` status405
+-
 -    it "managerModifyRequest" $ do
 -        let modify req = return req { port = 80 }
 -            settings = defaultManagerSettings { managerModifyRequest = modify }
 -        withManager settings $ \man -> do
 -            res <- httpLbs "http://httpbin.org:1234" man
 -            responseStatus res `shouldBe` status200
+-
+-    it "managerModifyRequestCheckStatus" $ do
+-        let modify req = return req { checkStatus = \s hs cj -> Just $ toException $ StatusCodeException s hs cj }
+-            settings = defaultManagerSettings { managerModifyRequest = modify }
+-        withManager settings $ \man ->
+-            httpLbs "http://httpbin.org" man `shouldThrow` anyException
 +spec = return ()

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/DHG_packages.git