p2p-governor: prop_governor_nolivelock - use timeout

Use QuickCheck timeout of 10s on each test case.
IntersectMBO · Jan 26, 2021 · a08c087 · a08c087
1 parent 650432c
commit a08c087
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/ouroboros-network/test/Ouroboros/Network/PeerSelection/Test.hs b/ouroboros-network/test/Ouroboros/Network/PeerSelection/Test.hs
@@ -5,6 +5,7 @@
 {-# LANGUAGE FlexibleContexts           #-}
 {-# LANGUAGE GeneralisedNewtypeDeriving #-}
 {-# LANGUAGE NamedFieldPuns             #-}
+{-# LANGUAGE NumericUnderscores         #-}
 {-# LANGUAGE RecordWildCards            #-}
 {-# LANGUAGE ScopedTypeVariables        #-}
 
@@ -547,6 +548,7 @@ pickMapKeys m ns =
 -- TODO: Reenable this testcase.
 prop_governor_nolivelock :: GovernorMockEnvironment -> Property
 prop_governor_nolivelock env =
+    within 10_000_000 $
     let trace = takeFirstNHours 24 .
                 selectGovernorEvents .
                 selectPeerSelectionTraceEvents $