Reduced time on Diffusion tests

IntersectMBO · May 9, 2022 · 771aba0 · 771aba0
1 parent ab7c78b
commit 771aba0
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/ouroboros-network/test/Test/Ouroboros/Network/Testnet.hs b/ouroboros-network/test/Test/Ouroboros/Network/Testnet.hs
@@ -268,7 +268,7 @@ prop_connection_manager_trace_coverage 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
 
@@ -352,7 +352,7 @@ prop_connection_manager_transitions_coverage 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
 
@@ -387,7 +387,7 @@ prop_inbound_governor_trace_coverage 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
 
@@ -456,7 +456,7 @@ prop_inbound_governor_transitions_coverage 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
 
@@ -490,7 +490,7 @@ prop_server_trace_coverage 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
 
@@ -530,7 +530,7 @@ prop_peer_selection_action_trace_coverage 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
 
@@ -572,7 +572,7 @@ prop_peer_selection_trace_coverage 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