diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-07-31 08:47:11 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-07-31 08:47:11 -0700 |
| commit | 77cf7f9cac66b8fd59be546979850026c738833a (patch) | |
| tree | 5034b8a92832374060ef020fe93ce4282421f51b | |
| parent | fe6ea8eb32fd7b6b4c08c3c1b851e4719595137c (diff) | |
Tweaked Arbitrary instance to help avoid timeouts in tests.
| -rw-r--r-- | src/Tests/Arbitrary.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |