diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-22 12:28:30 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-22 12:37:19 -0800 |
commit | 373d05601a37caa6ea84c1ec46d3ef5c3c28a75f (patch) | |
tree | 0f66fcab854d4d1e71dc566ed82cc5acc914f2ef /tests/Tests/Arbitrary.hs | |
parent | 209b300d6adeb2427c0058b808945ac39f851b24 (diff) |
Added native writer tests.
Diffstat (limited to 'tests/Tests/Arbitrary.hs')
-rw-r--r-- | tests/Tests/Arbitrary.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/Tests/Arbitrary.hs b/tests/Tests/Arbitrary.hs index 825902e4c..af882889f 100644 --- a/tests/Tests/Arbitrary.hs +++ b/tests/Tests/Arbitrary.hs @@ -91,10 +91,8 @@ arbBlock n = frequency $ [ (10, liftM Plain arbitrary) ] instance Arbitrary Pandoc where - arbitrary - = do x1 <- arbitrary - x2 <- arbitrary - return $ normalize (Pandoc x1 x2) + arbitrary = resize 8 $ liftM normalize + $ liftM2 Pandoc arbitrary arbitrary {- instance Arbitrary CitationMode where |