tx-submission test: fixed a deadlock due to pipelining

IntersectMBO · Jul 25, 2024 · bf43dc6 · bf43dc6
1 parent 6224068
commit bf43dc6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ouroboros-network/sim-tests-lib/Test/Ouroboros/Network/TxSubmission.hs b/ouroboros-network/sim-tests-lib/Test/Ouroboros/Network/TxSubmission.hs
@@ -220,7 +220,8 @@ txSubmissionSimulation maxUnacked outboundTxs
 
     inboundMempool  <- emptyMempool
     outboundMempool <- newMempool outboundTxs
-    (outboundChannel, inboundChannel) <- createConnectedChannels
+    (outboundChannel, inboundChannel) <- createConnectedBufferedChannels
+                                           (fromIntegral maxUnacked)
     outboundAsync <-
       async $ runPeerWithLimits
                 (("OUTBOUND",) `contramap` verboseTracer)