git.iko.soy/typeable/pandoc
on master help sign in
Tests.Arbitrary: Let strings include any character.
1fd5e3bJohn MacFarlane
tests/Tests/Arbitrary.hs+1−1
compare with master
unifiedsplit
@@ -11,7 +11,7 @@ import Text.Pandoc.Shared
11import Text.Pandoc.Builder
11import Text.Pandoc.Builder
12
12
13realString :: Gen String
13realString :: Gen String
14−realString = elements wordlist
14+realString = resize 8 arbitrary -- elements wordlist
15
15
16wordlist :: [String]
16wordlist :: [String]
17wordlist = ["foo","Bar","baz","\\","/",":","\"","'","féé"]
17wordlist = ["foo","Bar","baz","\\","/",":","\"","'","féé"]