commit d1583e150f23af9baa923f1aaa17b35b85872a5e parent bfbcec3fa176607fafa7639a99ea376d8e85a72d Author: Jared Tobin <jared@jtobin.io> Date: Fri, 3 Jan 2025 18:58:55 -0330 test: 1k maxsuccess Diffstat:
| M | test/Main.hs | | | 6 | ++++-- |
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/test/Main.hs b/test/Main.hs @@ -50,10 +50,12 @@ decode_inverts_encode (BS bs) = case B32.decode (B32.encode bs) of main :: IO () main = defaultMain $ testGroup "ppad-bech32" [ testGroup "base32" [ - Q.testProperty "decode . encode ~ id" decode_inverts_encode + Q.testProperty "decode . encode ~ id" $ + Q.withMaxSuccess 1000 decode_inverts_encode ] , testGroup "bech32" [ - Q.testProperty "Bech32.encode ~ R.bech32Encode" matches + Q.testProperty "Bech32.encode ~ R.bech32Encode" $ + Q.withMaxSuccess 1000 matches ] ]