Update test/Spec.hs

Co-Authored-By: Leonhard Markert <[email protected]>
idontgetoutmuch · Apr 29, 2020 · b72f1a5 · b72f1a5
1 parent f913dcd
commit b72f1a5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/Spec.hs b/test/Spec.hs
@@ -80,7 +80,7 @@ unitTests = testGroup "Unit tests"
   [ -- Check that https://github.com/haskell/random/issues/53 does not regress
 
     testCase "Subnormal generation respects upper bound" $
-    [] @?= (filter (>4.0e-45) $ take 10 $ randomRs (0,(4.0e-45::Float)) $ mkStdGen 0)
+    [] @?= (filter (>4.0e-45) $ take 100000 $ randomRs (0,(4.0e-45::Float)) $ mkStdGen 0)
 
   , testCase "Subnormal generation includes upper bound" $
     1.0e-45 `elem` (take 100 $ randomRs (0,(1.0e-45::Float)) $ mkStdGen 0) @?