Skip to content

Commit bd50c53

Browse files
committed
fixing a test case.
1 parent cbd67cc commit bd50c53

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

tests/Network/SocketSpec.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -45,10 +45,12 @@ spec = do
4545
sock <- socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)
4646
bind sock $ addrAddress addr
4747

48+
{- This does not work on Windows and Linux.
4849
it "fails to bind to unknown ipv4 socket" $ do
4950
addr:_ <- getAddrInfo (Just hints) (Just "127.0.0.3") Nothing
5051
sock <- socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)
5152
bind sock (addrAddress addr) `shouldThrow` anyIOException
53+
-}
5254

5355
it "successfully binds to an ipv6 socket" $ do
5456
addr:_ <- getAddrInfo (Just hints) (Just serverAddr6) Nothing

0 commit comments

Comments
 (0)