Reduce size of tests

IntersectMBO · Apr 29, 2024 · a7df970 · a7df970
1 parent 47a4a3f
commit a7df970
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/Genesis/Tests/CSJ.hs b/ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/Genesis/Tests/CSJ.hs
@@ -28,9 +28,11 @@ import           Test.Tasty
 import           Test.Tasty.QuickCheck
 import           Test.Util.Orphans.IOLike ()
 import           Test.Util.TestBlock (Header, TestBlock)
+import           Test.Util.TestEnv (adjustQuickCheckMaxSize)
 
 tests :: TestTree
 tests =
+  adjustQuickCheckMaxSize (`div` 5) $
   testGroup
     "CSJ"
     [ testProperty "“Happy Path” synchronous scenario only speaks to one peer" $ prop_happyPath True