From 1fd5e3bcffb08533cdc97138add1a83a16110d0e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 22 Jan 2011 13:40:29 -0800
Subject: Tests.Arbitrary:  Let strings include any character.

---
 tests/Tests/Arbitrary.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests')

diff --git a/tests/Tests/Arbitrary.hs b/tests/Tests/Arbitrary.hs
index af882889f..1da7db143 100644
--- a/tests/Tests/Arbitrary.hs
+++ b/tests/Tests/Arbitrary.hs
@@ -11,7 +11,7 @@ import Text.Pandoc.Shared
 import Text.Pandoc.Builder
 
 realString :: Gen String
-realString = elements wordlist
+realString = resize 8 arbitrary -- elements wordlist
 
 wordlist :: [String]
 wordlist = ["foo","Bar","baz","\\","/",":","\"","'","féé"]
-- 
cgit v1.2.3