ilyakooo0/binary-bits
1
0
Fork 0
mirror of https://github.com/ilyakooo0/binary-bits.git synced 2024-09-11 06:35:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use default test-framework parameters, no override

Browse Source
This commit is contained in:
Lennart Kolmodin 2011-06-01 08:26:33 +04:00
parent a43f3aef96
commit 5a9c73664a
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
BitsQC.hs
View File

@ -21,23 +21,12 @@ import BitsPut
import Test.Framework.Options ( TestOptions'(..) )
import Test.Framework.Providers.QuickCheck2 ( testProperty )
import Test.Framework.Runners.Console ( defaultMainWithOpts )
import Test.Framework.Runners.Console ( defaultMain )
import Test.Framework.Runners.Options ( RunnerOptions'(..) )
import Test.Framework ( Test, testGroup )
import Test.QuickCheck
main = do
args <- getArgs
defaultMainWithOpts tests (setMaxTestCases (if null args then 1024 else read (head args)))
where
-- increase the number of test cases
setMaxTestCases n =
mempty
{ ropt_test_options = Just $
mempty
{ topt_maximum_generated_tests = Just n
}
}
main = defaultMain tests
tests :: [Test]
tests =