Merge pull request #233 from input-output-hk/KtorZ/220/shuffle-quickc…

…heck-constraints relax a bit QuickCheck constraints on shuffle properties
cardano-foundation · May 7, 2019 · 1a59d86 · 1a59d86
2 parents 564a50d + 0b0bacf
commit 1a59d86
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]