From 7323770d8ad1cd7da4f2ab1abe69768f4c080621 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 15 Nov 2013 17:04:40 -0400 Subject: [PATCH] run each quickcheck test 1000, rather than 100 times I've had one or two fails sent to me involving cases QuickCheck didh't easily find, and tasty makes this easy. --- Test.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Test.hs b/Test.hs index 6f26fa9107..ff383710e4 100644 --- a/Test.hs +++ b/Test.hs @@ -78,7 +78,7 @@ main = do indirectenv <- prepare False directenv <- prepare True let tests = testGroup "Tests" - [ properties + [ localOption (QuickCheckTests 1000) properties , unitTests indirectenv "(indirect)" , unitTests directenv "(direct)" ]