mirror of
https://github.com/ilyakooo0/binary-bits.git
synced 2024-09-11 06:35:26 +03:00
Use default test-framework parameters, no override
This commit is contained in:
parent
a43f3aef96
commit
5a9c73664a
15
BitsQC.hs
15
BitsQC.hs
@ -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 =
|
||||
|
Loading…
Reference in New Issue
Block a user