mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

run each quickcheck test 1000, rather than 100 times

Browse source 
I've had one or two fails sent to me involving cases QuickCheck didh't
easily find, and tasty makes this easy.
This commit is contained in:
Joey Hess 2013-11-15 17:04:40 -04:00
parent 3eeb721a90
commit 7323770d8a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Test.hs
View file

@ -78,7 +78,7 @@ main = do
indirectenv <- prepare False indirectenv <- prepare False
directenv <- prepare True directenv <- prepare True
let tests = testGroup "Tests" let tests = testGroup "Tests"
[ properties [ localOption (QuickCheckTests 1000) properties
, unitTests indirectenv "(indirect)" , unitTests indirectenv "(indirect)"
, unitTests directenv "(direct)" , unitTests directenv "(direct)"
] ]