From e609958d48002c6f3809cab3232419f8fe658048 Mon Sep 17 00:00:00 2001 From: Nikolaos Bezirgiannis Date: Tue, 23 Jul 2024 13:06:10 +0200 Subject: [PATCH] Reverse hunk test_multiSplitSound --- plutus-core/plutus-core/test/Generators/QuickCheck/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plutus-core/plutus-core/test/Generators/QuickCheck/Utils.hs b/plutus-core/plutus-core/test/Generators/QuickCheck/Utils.hs index be02a252470..95d50209ec2 100644 --- a/plutus-core/plutus-core/test/Generators/QuickCheck/Utils.hs +++ b/plutus-core/plutus-core/test/Generators/QuickCheck/Utils.hs @@ -21,7 +21,7 @@ test_multiSplitSound = , ("multiSplit0", multiSplit0 0.1) ] pure . testProperty name $ \(xs :: [Int]) -> - withMaxSuccess 100 . forAll (split xs) $ \aSplit -> + withMaxSuccess 10000 . forAll (split xs) $ \aSplit -> xs === concat aSplit -- | Show the distribution of lists generated by a split function for a list of the given length.