network-transport-tcp 0.8.2 → 0.8.3
raw patch · 3 files changed
+16/−4 lines, 3 filesdep ~network
Dependency ranges changed: network
Files
- ChangeLog +4/−0
- network-transport-tcp.cabal +1/−1
- tests/TestTCP.hs +11/−3
ChangeLog view
@@ -1,3 +1,7 @@+2023-03-26 David Simmons-Duffin <dsd@caltech.edu> 0.8.3++* Disable a flaky test+ 2023-03-25 David Simmons-Duffin <dsd@caltech.edu> 0.8.2 * Bump bytestring version to build with GHC 9.8.
network-transport-tcp.cabal view
@@ -1,5 +1,5 @@ Name: network-transport-tcp-Version: 0.8.2+Version: 0.8.3 Cabal-Version: >=1.10 Build-Type: Simple License: BSD3
tests/TestTCP.hs view
@@ -1040,13 +1040,21 @@ -- | Ensure that if peer host checking works through name resolution: if the -- peer claims "localhost", and connects to a transport also on localhost, -- it should be accepted.+--+-- This test fails on some systems which resolve to+-- "localhost.localdomain" instead of "localhost". Disabling it for+-- now. testCheckPeerHostResolve :: IO () testCheckPeerHostResolve = do - let params = defaultTCPParameters { tcpCheckPeerHost = True }+ let+ params = defaultTCPParameters { tcpCheckPeerHost = True }+ -- This test only passes with this choice on some systems+ -- localHostName = "localhost.localdomain"+ localHostName = "localhost" Right transport1 <- createTransport (defaultTCPAddr "127.0.0.1" "0") params -- EndPoints on this transport have addresses with "localhost" host part.- Right transport2 <- createTransport (Addressable (TCPAddrInfo "127.0.0.1" "0" ((,) "localhost"))) defaultTCPParameters+ Right transport2 <- createTransport (Addressable (TCPAddrInfo "127.0.0.1" "0" ((,) localHostName))) defaultTCPParameters Right ep1 <- newEndPoint transport1 Right ep2 <- newEndPoint transport2@@ -1124,7 +1132,7 @@ , ("MaxLength", testMaxLength) , ("CloseEndPoint", testCloseEndPoint) , ("CheckPeerHostReject", testCheckPeerHostReject)- , ("CheckPeerHostResolve", testCheckPeerHostResolve)+ -- , ("CheckPeerHostResolve", testCheckPeerHostResolve) -- flaky , ("UnreachableSelfConnect", testUnreachableSelfConnect) , ("UnreachableConnect", testUnreachableConnect) ]