From 77cf7f9cac66b8fd59be546979850026c738833a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 31 Jul 2011 08:47:11 -0700 Subject: Tweaked Arbitrary instance to help avoid timeouts in tests. --- src/Tests/Arbitrary.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Tests/Arbitrary.hs') diff --git a/src/Tests/Arbitrary.hs b/src/Tests/Arbitrary.hs index 39491431d..f5a44ceab 100644 --- a/src/Tests/Arbitrary.hs +++ b/src/Tests/Arbitrary.hs @@ -28,7 +28,7 @@ instance Arbitrary Blocks where arbitrary = liftM fromList arbitrary instance Arbitrary Inline where - arbitrary = resize 3 $ arbInline 3 + arbitrary = resize 3 $ arbInline 2 arbInlines :: Int -> Gen [Inline] arbInlines n = listOf1 (arbInline n) `suchThat` (not . startsWithSpace) @@ -72,7 +72,7 @@ arbInline n = frequency $ [ (60, liftM Str realString) ] instance Arbitrary Block where - arbitrary = resize 3 $ arbBlock 3 + arbitrary = resize 3 $ arbBlock 2 arbBlock :: Int -> Gen Block arbBlock n = frequency $ [ (10, liftM Plain $ arbInlines (n-1)) -- cgit v1.2.3