From 2c112b887783ed268619da014302dc995b4c50c8 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Mon, 1 Jun 2015 07:47:40 +0100 Subject: [PATCH] [tests] generate smaller number in one of the case --- tests/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/Utils.hs b/tests/Utils.hs index bc9beae..279aca6 100644 --- a/tests/Utils.hs +++ b/tests/Utils.hs @@ -54,7 +54,7 @@ newtype QAInteger = QAInteger { getQAInteger :: Integer } instance Arbitrary QAInteger where arbitrary = oneof - [ QAInteger . fromIntegral <$> (choose (0, 655536) :: Gen Int) -- small integer + [ QAInteger . fromIntegral <$> (choose (0, 65536) :: Gen Int) -- small integer , larger <$> choose (0,4096) <*> choose (0, 65536) -- medium integer , QAInteger . os2ip . B.pack <$> (choose (0,32) >>= \n -> replicateM n arbitrary) -- [ 0 .. 2^32 ] sized integer ]