git.iko.soy/typeable/wai
on master help sign in
unsetting http?_proxy for testing.
b9ab3abKazu Yamamoto
warp/test/WithApplicationSpec.hs+4
compare with master
unifiedsplit
@@ -7,6 +7,7 @@ import Control.Exception
7import Network.HTTP.Types
7import Network.HTTP.Types
8import Network.Socket
8import Network.Socket
9import Network.Wai
9import Network.Wai
10+import System.Environment
10import System.IO
11import System.IO
11import System.IO.Silently
12import System.IO.Silently
12import System.Process
13import System.Process
@@ -16,6 +17,9 @@ import Network.Wai.Handler.Warp.WithApplication
16
17
17spec :: Spec
18spec :: Spec
18spec = do
19spec = do
20+ runIO $ do
21+ unsetEnv "http_proxy"
22+ unsetEnv "https_proxy"
19 describe "withApplication" $ do
23 describe "withApplication" $ do
20 it "runs a wai Application while executing the given action" $ do
24 it "runs a wai Application while executing the given action" $ do
21 let mkApp = return $ \ _request respond -> respond $ responseLBS ok200 [] "foo"
25 let mkApp = return $ \ _request respond -> respond $ responseLBS ok200 [] "foo"