Reduce time on diffusion tests

IntersectMBO · May 6, 2022 · 29b15b8 · 29b15b8
1 parent 061d045
commit 29b15b8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ouroboros-network/test/Test/Ouroboros/Network/Testnet.hs b/ouroboros-network/test/Test/Ouroboros/Network/Testnet.hs
@@ -1044,7 +1044,7 @@ prop_diffusion_timeouts_enforced defaultBearerInfo diffScript =
                   @NtNAddr
                . Trace.fromList (MainReturn (Time 0) () [])
                . fmap (\(t, tid, tl, te) -> SimEvent t tid tl te)
-               . take 1000000
+               . take 500000
                . traceEvents
                $ runSimTrace sim