test-framework 0.5 → 0.6

raw patch · 4 files changed

+9/−1 lines, 4 files

Files

• Test/Framework/Options.hs +4/−0
• Test/Framework/Runners/Console.hs +3/−0
• Test/Framework/Runners/Core.hs +1/−0
• test-framework.cabal +1/−1

@@ -15,6 +15,8 @@         -- ^ Maximum number of tests to generate when using something like QuickCheck         topt_maximum_unsuitable_generated_tests :: f Int,         -- ^ Maximum number of unsuitable tests to consider before giving up when using something like QuickCheck+        topt_maximum_test_size :: f Int,+        -- ^ Maximum size of generated tests when using something like QuickCheck         topt_maximum_test_depth :: f Int,         -- ^ Maximum depth of generated tests when using something like SmallCheck         topt_timeout :: f (Maybe Int)@@ -26,6 +28,7 @@             topt_seed = Nothing,             topt_maximum_generated_tests = Nothing,             topt_maximum_unsuitable_generated_tests = Nothing,+            topt_maximum_test_size = Nothing,             topt_maximum_test_depth = Nothing,             topt_timeout = Nothing         }@@ -34,6 +37,7 @@             topt_seed = getLast (mappendBy (Last . topt_seed) to1 to2),             topt_maximum_generated_tests = getLast (mappendBy (Last . topt_maximum_generated_tests) to1 to2),             topt_maximum_unsuitable_generated_tests = getLast (mappendBy (Last . topt_maximum_unsuitable_generated_tests) to1 to2),+            topt_maximum_test_size = getLast (mappendBy (Last . topt_maximum_test_size) to1 to2),             topt_maximum_test_depth = getLast (mappendBy (Last . topt_maximum_test_depth) to1 to2),             topt_timeout = getLast (mappendBy (Last . topt_timeout) to1 to2)         }

@@ -52,6 +52,9 @@         Option [] ["maximum-unsuitable-generated-tests"]             (ReqArg (\t -> mempty { ropt_test_options = Just (mempty { topt_maximum_unsuitable_generated_tests = Just (read t) }) }) "NUMBER")             "how many unsuitable candidate tests something like QuickCheck should endure before giving up, by default",+        Option ['s'] ["maximum-test-size"]+            (ReqArg (\t -> mempty {ropt_test_options = Just (mempty { topt_maximum_test_size = Just (read t) }) }) "NUMBER")+            "to what size something like QuickCheck should test the properties, by default",         Option ['d'] ["maximum-test-depth"]             (ReqArg (\t -> mempty { ropt_test_options = Just (mempty { topt_maximum_test_depth = Just (read t) }) }) "NUMBER")             "to what depth something like SmallCheck should test the properties, by default",

@@ -59,6 +59,7 @@             topt_seed = K $ topt_seed to `orElse` RandomSeed,             topt_maximum_generated_tests = K $ topt_maximum_generated_tests to `orElse` 100,             topt_maximum_unsuitable_generated_tests = K $ topt_maximum_unsuitable_generated_tests to `orElse` 1000,+            topt_maximum_test_size = K $ topt_maximum_test_size to `orElse` 100,             topt_maximum_test_depth = K $ topt_maximum_test_depth to `orElse` 5,             topt_timeout = K $ topt_timeout to `orElse` Nothing         }

@@ -1,5 +1,5 @@ Name:                test-framework-Version:             0.5+Version:             0.6 Cabal-Version:       >= 1.2.3 Category:            Testing Synopsis:            Framework for running and organising tests, with HUnit and QuickCheck support