Fix dropping logic

cardano-scaling · May 23, 2024 · 1908f09 · 1908f09
1 parent 7b29939
commit 1908f09
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/hydra-node/test/Hydra/Network/ReliabilitySpec.hs b/hydra-node/test/Hydra/Network/ReliabilitySpec.hs
@@ -279,8 +279,9 @@ prop_stressTest nAlice nBob nCarol seed =
               forM_ (Map.toList peers) $ \(p, send) -> do
                 -- drop 2% of messages
                 r <- randomNumber stdGenV
-                unless (p == party && r < 0.02) $
-                  send (Authenticated msg party) -- calls receiveMessage on the other end
+                if (p == party || r < 0.02)
+                  then pure () -- drop
+                  else send (Authenticated msg party) -- calls receiveMessage on the other end
           , onMessageReceived
           }