commenting out the withFreePort test case.
commit05f5bb4483ac2e1f2d704ea8fdd7f1b872d7f34c
authorKazu Yamamoto <kazu@iij.ad.jp>
dateFri 19 Jan 2018, 16:26 (9 years ago)
parent0033a3d
warp/test/WithApplicationSpec.hs+2
@@ -42,8 +42,10 @@ spec = do
4242 readProcess "curl" ["-s", "localhost:" ++ show port] "")
4343 `shouldThrow` (errorCall "foo")
4444
45+{- The future netwrok library will not export MkSocket.
4546 describe "withFreePort" $ do
4647 it "closes the socket before exiting" $ do
4748 MkSocket _ _ _ _ statusMVar <- withFreePort $ \ (_, sock) -> do
4849 return sock
4950 readMVar statusMVar `shouldReturn` Closed
51+-}