git.iko.soy/typeable/bloodhound
on master help sign in
Resize searchHits generator

We don't need a 5 minute test run for this property IMO

commit2ff637882646a05b4daa41c08ba4c6b349ea7094 authorMichael Xavier <michael@michaelxavier.net> dateWed 13 May 2015, 18:49 (11 years ago) parentcc48d43
1 file changed+1−1
compare with master
unifiedsplit
tests/tests.hs+1−1
tests/tests.hs+1−1
@@ -254,7 +254,7 @@ instance Arbitrary a => Arbitrary (Hit a) where
254254
255255
256256instance Arbitrary a => Arbitrary (SearchHits a) where
257− arbitrary = do
257+ arbitrary = sized $ \n -> resize (n `div` 2) $ do
258258 tot <- getPositive <$> arbitrary
259259 score <- arbitraryScore
260260 hs <- arbitrary