Reduce time on Diffusion tests

IntersectMBO · May 9, 2022 · 4646e34 · 4646e34
1 parent 369593d
commit 4646e34
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ouroboros-network/test/Test/Ouroboros/Network/Testnet.hs b/ouroboros-network/test/Test/Ouroboros/Network/Testnet.hs
@@ -421,7 +421,7 @@ prop_diffusion_target_established_public defaultBearerInfo diffScript =
                   @NtNAddr
                . Trace.fromList (MainReturn (Time 0) () [])
                . fmap (\(t, tid, tl, te) -> SimEvent t tid tl te)
-               . take 500000
+               . take 125000
                . traceEvents
                $ runSimTrace sim
 
@@ -515,7 +515,7 @@ prop_diffusion_target_active_public defaultBearerInfo diffScript =
                   @NtNAddr
                . Trace.fromList (MainReturn (Time 0) () [])
                . fmap (\(t, tid, tl, te) -> SimEvent t tid tl te)
-               . take 500000
+               . take 125000
                . traceEvents
                $ runSimTrace sim