relax a bit QuickCheck constraints on shuffle properties

cardano-foundation · May 7, 2019 · 0b0bacf · 0b0bacf
1 parent 9b2dfbc
commit 0b0bacf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/core/test/unit/Cardano/Wallet/Primitive/CoinSelectionSpec.hs b/lib/core/test/unit/Cardano/Wallet/Primitive/CoinSelectionSpec.hs
@@ -91,7 +91,7 @@ prop_shuffleCanShuffle
 prop_shuffleCanShuffle xs =
     length xs > 1 ==> monadicIO $ liftIO $ do
         xs' <- shuffle xs
-        return $ cover 95 (xs /= xs') "shuffled" ()
+        return $ cover 90 (xs /= xs') "shuffled" ()
 
 prop_shuffleNotDeterministic
     :: [Int]
@@ -100,7 +100,7 @@ prop_shuffleNotDeterministic xs =
     length xs > 1 ==> monadicIO $ liftIO $ do
         xs1 <- shuffle xs
         xs2 <- shuffle xs
-        return $ cover 95 (xs1 /= xs2) "not deterministic" ()
+        return $ cover 90 (xs1 /= xs2) "not deterministic" ()
 
 prop_shufflePreserveElements
     :: [Int]