Fix problem with test suite in non-unicode locale.

This commit is contained in:
Joey Hess 2013-09-11 12:07:59 -04:00
parent 960052bc36
commit e4d0b2f180
2 changed files with 7 additions and 1 deletions

View file

@ -81,7 +81,7 @@ file2key s = if key == Just stubKey then Nothing else key
instance Arbitrary Key where
arbitrary = Key
<$> arbitrary
<$> (listOf1 $ elements $ ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ "\r\n \t")
<*> (listOf1 $ elements ['A'..'Z']) -- BACKEND
<*> ((abs <$>) <$> arbitrary) -- size cannot be negative
<*> arbitrary