diff --git a/Test/Framework/Options.hs b/Test/Framework/Options.hs
--- a/Test/Framework/Options.hs
+++ b/Test/Framework/Options.hs
@@ -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)
         }
diff --git a/Test/Framework/Runners/Console.hs b/Test/Framework/Runners/Console.hs
--- a/Test/Framework/Runners/Console.hs
+++ b/Test/Framework/Runners/Console.hs
@@ -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",
diff --git a/Test/Framework/Runners/Core.hs b/Test/Framework/Runners/Core.hs
--- a/Test/Framework/Runners/Core.hs
+++ b/Test/Framework/Runners/Core.hs
@@ -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
         }
diff --git a/test-framework.cabal b/test-framework.cabal
--- a/test-framework.cabal
+++ b/test-framework.cabal
@@ -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