Reduce time on diffusion tests

IntersectMBO · May 18, 2022 · c09ee1a · c09ee1a
1 parent 3011b17
commit c09ee1a
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
@@ -308,7 +308,7 @@ prop_diffusion_dns_can_recover defaultBearerInfo diffScript =
                   @NtNAddr
                . Trace.fromList (MainReturn (Time 0) () [])
                . fmap (\(t, tid, tl, te) -> SimEvent t tid tl te)
-               . take 1000000
+               . take 125000
                . traceEvents
                $ runSimTrace sim