Make gossip failure results take non-zero time

Add a TODO to add support for variable delays and synchronous failure.
IntersectMBO · May 4, 2021 · 2f90a11 · 2f90a11
1 parent c695bf4
commit 2f90a11
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/ouroboros-network/test/Test/Ouroboros/Network/PeerSelection/MockEnvironment.hs b/ouroboros-network/test/Test/Ouroboros/Network/PeerSelection/MockEnvironment.hs
@@ -283,6 +283,7 @@ mockPeerSelectionActions' tracer
         traceWith tracer (TraceEnvGossipTTL addr)
       case mgossip of
         Nothing                -> do
+          threadDelay 1
           traceWith tracer (TraceEnvGossipResult addr [])
           fail "no peers"
         Just (peeraddrs, time) -> do
@@ -292,6 +293,7 @@ mockPeerSelectionActions' tracer
 
     establishPeerConnection :: PeerAddr -> m (PeerConn m)
     establishPeerConnection peeraddr = do
+      --TODO: add support for variable delays and synchronous failure
       threadDelay 1
       (conn@(PeerConn _ v), snapshot) <- atomically $ do
         conn  <- newTVar PeerWarm