script

commit 2c1fc1299667c07a2932a07eba8c3930d259d18f
parent ef0497853f5e7957eb68be62de08e4408990bcb1
Author: Jared Tobin <jared@jtobin.io>
Date:   Mon, 20 Jan 2025 11:53:17 +0400

test: decrease max successes

Diffstat:
M
test/Main.hs
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/test/Main.hs b/test/Main.hs
@@ -184,13 +184,13 @@ main = defaultMain $
     testGroup "property tests" [
       testGroup "inverses" [
           Q.testProperty "ba_to_bs . bs_to_ba ~ id" $
-            Q.withMaxSuccess 500 ba_to_bs_inverts_bs_to_ba
+            Q.withMaxSuccess 100 ba_to_bs_inverts_bs_to_ba
         , Q.testProperty "ba_to_bs . bs_to_ba ~ id" $
-            Q.withMaxSuccess 500 bs_to_ba_inverts_ba_to_bs
+            Q.withMaxSuccess 100 bs_to_ba_inverts_ba_to_bs
         , Q.testProperty "from_base16 . to_base16 ~ id" $
-            Q.withMaxSuccess 500 from_base16_inverts_to_base16
+            Q.withMaxSuccess 100 from_base16_inverts_to_base16
         , Q.testProperty "to_base16 . from_base16 ~ id" $
-            Q.withMaxSuccess 500 to_base16_inverts_from_base16
+            Q.withMaxSuccess 100 to_base16_inverts_from_base16
         , Q.testProperty "to_script . from_script ~ id" $
             Q.withMaxSuccess 1000 to_script_inverts_from_script
         ]